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Modeling  Cycle  and  Time  Dependent  Creep/Relaxation 
Effects  on  Fatigue  Lives  of  Notched  Members 

by 

DeRome  Osmond  Dunn 
Engineering  Science  and  Mechanics 

SUMIARY 

Mechanical  cyclic  variations  in  mean  stress  and  strain  amplitude  is 
a  well-known  occurrence  for  metals  even  at  room  temperature.  Many  fatigue 
analysis  procedures  ignore  these  variations.  Fatigue  analysis  which 
included  both  time  and  cycle  dependent  mechanical  material  behavior  for 
metals  at  room  temperature  had  not  been  previously  studied  except  for  the 
case  of  creep.  An  investigation  studying  transient  mechanical  effects  on 
Ti-6A1-4V  titanium  and  7475-T651  A1  alloys  was  done  to  determine  how  great 
an  effect  transients  at  room  temperature  would  have  on  fatigue  life  under 
cyclic  conditions.  The  mechanical  material  response  was  modeled  using 
viscoplasticity  constitutive  laws  and  Neuber’s  rule  eliminating  the  need  for 
finite  element  modeling  of  uniaxially  loaded  notched  members.  However j  the 
Neuber’s  modeling  may  be  used  with  any  material  constitutive  law.  The 
procedures  for  fatigue  damage  used  cycle  counting  to  compute  strain 
amplitude  and  mean  stress.  Since  a  large  amount  of  fatigue  data  is  reported 
as  strain— life  curves,  the  fatigue  analysis  was  developed  using  this  fatigue 
data  although  it  did  not  include  transients.  If  favorable  results  are 
obtained,  development  of  modeling  and  testing  to  include  transients  in 
strain— life  fatigue  data  could  be  avoided,  and  the  existing  fatigue  data 
base  utilized. 

Experimental  work  was  undertaken  and  nonlinear  optimization 
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techniques  used  to  compute  model  constants  for  the  two  alloys.  However, 
small  amounts  of  rate  dependence  was  found  for  cyclic  strain  control 
testing.  The  viscoplasticity  models  became  stiff  when  rate  dependence  was 
low  causing  numerical  problems,  and  model  constants  for  the  viscoplastic 
constitutive  law  could  not  be  determined  since  convergence  was  not  achieved. 
Also,  only  small  amounts  of  transient  static  stress  relaxation  was  observed 
for  extended  hold  periods. 

Finally,  experimental  verification  was  done  for  the  local  surface 
stresses  in  a  notched  member  under  load  using  advanced  x—ray  stress 
equipment.  Measurements  during  brief  pauses  were  made  over  a  cycle.  From 
the  x—ray  results,  an  anomalous  surface  behavior  was  observed.  The  surface 
yielded  before  the  bulk  material  with  the  lower  surface  yielding  seeming  to 
be  time  dependent  in  nature.  Since  rolled  plates  of  the  alloys  were  used, 
texture  was  measured  and  studied  in  the  form  of  pole  figures,  and  extreme, 
texture  was  found  for  both  alloys.  However,  successful  x—ray  measurements 
were  made  for  the  alloys  studied  even  though  assuming  linear  d— spacing  versus 
si’nrij).  Finally,  x—ray  measurements  for  a  cycled  notched  member,  exhibited 
relaxation  of  mean  stress  and  not  relaxation  of  residual  stress. 
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The  work  described  was  performed  by  the  Engineering  Science  and 
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1.0  INTRODUCTION 

Studies  have  not  been  done  to  consider  both  mechanical  time  and 
cycle  dependent  effects  on  fatigue  life  of  notched  members  for  metals  at 
room  temperature  except  in  the  case  of  time  dependent  creep  when  hold 
periods  occurred  during  cycling.  At  room  temperature  for  metals,  most 
prevalent  fatigue  analysis  ignores  these  variations’  effect  on  fatigue  life- 
In  this  study,  an  attempt  was  made  to  account  for  mean  stress  variation 
along  with  strain  amplitude  variation  by  using  a  material  mechanical  model 
including  both  cyclic  ratcheting  and  time  dependent  material  behavior  at 
room  temperature.  These  variations  were  included  in  the  fatigue  damage 
computations  to  determine  their  effect  on  fatigue  life  during  uniaxial 
cyclic  loading  of  notched  members  for  metals  at  room  temperature.  Creep 
damage  was  not  included  in  the  life  determination. 

Mechanical  constitutive  laws  just  to  model  time  and  cycle  dependent 
transients  for  metals  at  room  temperature  have  not  been  developed.  However, 
this  study  seeks  to  apply  the  viscoplastic  constitutive  laws  previously 
developed  to  model  mechanical  transients  for  metals  at  elevated  temperatures 
to  metals  at  room  temperature.  Walker’s  unified  viscoplastic  constitutive 
model  was  used  to  model  the  mechanical  material  response  for  uniaxial 
loading  of  metals  at  room  temperature.  Numerical  difficulties  were  later 
encountered  because  the  two  materials  chosen,  Ti-6A1-*4V  titanium  and  /475“ 
T651  aluminum  alloys,  exhibited  very  little  cyclic  rate  dependence  during 
cyclic  variation  leading  to  an  inability  to  determine  material  constants  for 
these  materials.  The  viscoplastic  models  do  hot  reduce  to  a  rate 
independent  form,  and  instead  become  numerically  stiff  which  means 
variations  both  very  small  and  large  in  values  are  computed  simultaneously 
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leading  to  the  nonconvergence  of  iterative  routines.  Also,  static 
relaxation  tests  were  performed  to  further  evaluate  the  rate  dependence  of 
the  two  metals  chosen  at  room  temperature.  The  relaxation  tests  indicated 
the  presence  of  fairly  small  amounts  of  time  dependent  mechanical  response 
at  room  temperature  for  the  two  alloys  chosen. 

'The  significance  and  magnitude  of  the  influence  of  mechanical 
transients  on  fatigue  was  of  interest  allowing  comparisons  with  fatigue 
analysis  which  based  their  predictions  on  stable  cyclic  mechanical  behavioi 
of  metals  at  room  temperature.  Also  of  interest,  was  the  ways  in  which 
transient  material  response  may  affect  fatigue  life.  The  model  would  allow 
the  study  of  transient  mechanical  variations  in  mean  stress  and  strain 
amplitude  since  mean  stres'S  and  strain  amplitude  variations  are  included. 
Finally,  how  transient  mean  stress  and  strain  amplitude  variations  occur  in 
a  notch  are  described  when  the  notch  effects  are  supplied  by  Neuber’s  rule 
where  the  use  of  Neuber’s  rule  with  stable  cyclic  analysis  was  extended  for 
use  with  mechanical  transient  material  response.  Using  Neuber’s  rule 
allowed  the  use  of  a  one—dimensional  mechanical  stress— strain  analysis  for 
the  case  of  uniaxially  loaded  notched  members  avoiding  the  use  of  two  or 
three-dimensional  finite  element  computations. 

Procedures  and  methods  for  cycle  counting  and  cyclic  fatigue  damage 
determination  have  not  been  previously  developed  when  mechanical  transients 
were  present.  Procedures  are  outlined  for  prediction  of  fatigue  life  once 
local  notch  mechanical  cycle  and  time  dependent  behavior  was  modeled. 
Considerations  are  presented  for  using  the  local  strain  approach  with 
Neuber’s  rule  under  these  conditions.  Also  presented  is  rainflow  cycle 
counting  of  the  resulting  local  stress— strain  history  which  was  done  to 
determine  strain  amplitude  and  mean  stress.  Only  the  local  peak— valley 
values  for  the  stress— strain  history  ^^as  used  to  reduce  the  amount  of 
numerical  data  needed  during  the  damage  calculations.  Also  the  fatigue 
damage  calculations  were  devised  to  use  strain-life  curves  even  though  these 
curves  are  compiled  ignoring  the  presence  of  time  and  cycle  dependent 


2 


NAWCADWAR  95033-4.3 


transients  to  draw  upon  the  large  amount  of  fatigue  data  available  in  this 
form  and  to  avoid  the  use  of  more  elaborate  fatigue  testing. 

Finally,  x-ray  stress  analysis  using  advanced  equipment  was 
undertaken  to  monitor  local  stress  variations  at  the  notch  root  during 
cycling.  The  measurements  were  made  during  brief  pauses  during  cycling. 
These  types  of  measurements  during  loading  previously  could  not  be  done  with 
prior  x-ray  stress  instrumentation.  The  x-ray  results  were  gathered  to 
validate  the  model  developed.  However,  an  unexpected  lower  than  bulk 
surface  yield  point  was  observed  which  seemed  to  be  time  dependent  in 
nature.  Also,  pole  figures  were  compiled  to  quantify  the  texture  of  the 
rolled  plates  used.  Extreme  texture  was  noted,  but  the  linear  d-spacing 
versus  sin^rl)  relationship  was  still  found  to  apply  for  the  alloys  studied  in 
the  presence  of  the  extreme  texture.  Finally,  x-ray  measurements  of  the 
cyclic  variation  of  residual  stress  was  done  to  determine  if  relaxation  of 
mean  stress  or  relaxation  of  residual  stress  occurs  as  a  result  of  cycling  a 
notched  member.  No  definitive  answer  to  this  question  was  possible  with 
prior  X— ray  stress  instrumentation. 
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2.0  LITERATURE  REVIEW 

2.1  CYCLE  AND  TIME  DEPENDENT  TRANSIENTS  AT  ROOM  TEMPERATURE 

Cycle  and  time  dependent  transient  responses  are  seen  in  the  stress- 
strain  response  of  metals.  Time  dependent  relaxation  of  stress  is  a  well- 
known  phenomenon  in  metals  in  the  strained  state.  This  phenomenon  has  been 
observed  even  at  room  temperature.  The  time  dependent  transient  of  low 
temperature  creep  has  been  previously  seen  in  wrought  Ti— 6A1— 4V:  This 
behavior  was  described  in  Reference  [1]  at  less  than  250  Fahrenheit  and 
occurs  even  below  the  elastic  limit.  The  transient  of  cycle  dependent 
relaxation  was  observed  for  SAE  4340  steel  and  was  discussed  in  Reference 
[2].  These  and  other  transients  are  to  be  described  in  the  following 
discussion. 

One  widely  observed  transient  is  that  of  cyclic  hardening  and/or 
softening  which  causes  variations  in  stress/strain  amplitude.  The  strain 
amplitude  changes  during  strain  control  cyclic  testing,  whereas  the  stress 
amplitude  changes  during  stress  control  cyclic  testing.  Both  stress  and 
strain  amplitude  changes  occur  during  Neuber  contrpl  cyclic  testing.  These 
effects  were  previously  documented  in  References  [3,  4]. 

Cyclic  hardening  is  illustrated  in  Figure  1.  The  plots  were  derived 
from  data  for  a  7475-T651  aluminum  alloy  obtained  from  measurements  in  this 
study.  Plotted  are  the  stress-time,  strain-time,  and  stress-strain 
responses.  Fully  reversed  strain  control  testing  was  done,  and  the  strain¬ 
time  response  was  constant  as  expected.  However,  for  the  stress— time 
response,  the  stress  slightly  increased  with  time.  Also,  the  stress 
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amplitude  of  the  hysteresis  loops  are  seen  to  vary  during  the  test. 

Cyclic  softening  is  illustrated  in  Figure  2.  The  plots  were  derived 
from  data  for  Ti-6A1-4V  titanium  alloy.  The  Ti-6A1-4V  data  were  also 
obtained  in  this  study.  As  before,  plotted  are  the  stress-time,  strain¬ 
time,  and  stress-strain  responses  for  this  alloy.  Again,  fully  reversed 
strain  control  testing  was  done.  As  expected,  the  strain-time  response  was 
fairly  constant.  However,  for  the  stress-time  response,  the  stress 
decreased  with  time.  Also,  the  stress  amplitude  of  the  hysteresis  loops  is 
seen  to  vary  during  the  test.  Next,  the  path  traced  from  zero  to  the  first 
reversal  point,  the  monotonic  tension  curve,  is  clearly  visible.  The 
monotonic  tension  curve's  path  also  clearly  indicates  that  the  stress 
amplitude  decreased  from  its  initial  value. 

Cycle  dependent  creep/relaxation  and  time  dependent  creep/relaxation 
transients  are  observed  in  mechanical  material  behavior.  Cycle  dependent 
transients  are  referred  to  as  cyclic  ratcheting.  Cyclic  ratcheting  is 
assumed  to  be  completely  independent  of  time,,  and  it  is  only  necessary  to 
plastically  cycle  the  material  to  produce  the  effect.  Then,  time  dependent 
transients  vary  with  time.  Therefore,  the  time  dependent  transient  does  not 
require  cycling;  however,  cycling  may  produce  a  time  dependent  transient 
since  cycling  depends  on  time.  The  time/cycle  dependent  behaviors  will  be 
observed  as  creep  and/or  relaxation.  Creep  is  the  occurrence  of  transient 
variations  in  strain  resulting  in  a  change  in  the  mean  strain  over,  time  for 
a  constant  load  or  with  cycling  for  cyclic  loading.  Relaxation  is  when  tran¬ 
sient  variations  occur  in  stress  so  that  the  mean  stress  varies  with  time 
for  a  constant  displacement  or  with  cycling  for  cyclic  displacement. 

These  combinations  of  mechanical  behaviors  are  illustrated  in 
Figures  3,  4,  and  5  that  were  produced  from  computer  simulations  for  the 
case  of  uniaxial  loading.  The  simulated  material  exhibits  transients  due  to 

time  dependent  and  cyclic  ratcheting  effects.  Cyclic  hardening  was 

excluded.  The  material  constants  were  from  Reference  [5].  The  simulations 
were  for  the  three  cases  of  strain,  stress  and  Neuber  control. 
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Figure  2.  Cyclic  softening  Ti-6A1-4V , 

uniaxial  strain  control  test, 
soecimen  T1A05A. 
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The  computer  model  was  based  on  the  integral  model  given  by  Walker 
in  Reference  [5].  Walker’s  model  was  simplified  for  the  uniaxial  case. 
Neuber’s  rule  was  included  with  Walker’s  model  to  simulate  the  stress-strain 
response  of  a  notched  member  with  local  plasticity. 

The  computer  program  and  the  program’s  input  files  are  in  the . 
Appendix  that  produced  the  results  of  Figures  3.  4,  and  5.  Samples  of  the 
output  files,  for  the  computer  runs,  are  also  given  in  the  Appendix. 

The  transients  of  creep/relaxation  may  be  due  to  the  same  phenomena. 
The  difference  in  the  observed  stress-strain  response  may  be  attributed  to 
the  different  loading  conditions.  As  seen  in  Figure  3,  creep  occurs  under 
stress  control  conditions.^  Relaxation,  as  in  Figure  4,  takes  place  during 
the  imposition  of  strain  control.  In  imposing  the  stress  or  strain,  its 
time  variation  was  controlled.  No  time  variation  produces  the  special  case 
of  static  loading.  Static  loading,  such  as  hold  periods,  results  in  purely 
time  dependent  response.  However,  time  varying  loading,  without  hold 
periods,  results  in  cycle  dependent  response  which  may  be  either  time 
dependent  or  independent.  Therefore,  cyclic  creep/relaxation  may  be  either 
time  dependent  or  independent.  If  time  dependent  variations  are  signifi¬ 
cant,  loading  rate  must  be  considered.  However,  if  time  independent  varia¬ 
tions  occur,  cyclic  variations  occur  which  are  independent  of  the  rate  and 
time  variation  of  the  loading.  Most  current  fatigue  analysis  does  not 
include  information  on  the  time  variation  of  the  load  history  with  time 
dependency  considered  to  be  of  secondary  importance.  Finally,  both  time 
dependent  and  independent  effects  may  contribute  together  to  the  total 
mechanical  cyclic  creep/relaxation  response. 

Cycle  dependent  responses  were  viewed  as  not  being  due  to  time 
dependent  material  phenomena  by  Wetzel  in  Reference  [6].  He  accounted  for 
cyclic  creep/relaxation  as  being  due  to  the  influence  of  mean  stress.  The 
mean  stress  resulted  in  a  bias  that  resulted  in  additional  plastic 
increments  with  cycling.  A  tensile  bias  is  seen  in  Figures  3,  4,  and  5  for 
the  mean  stress.  Not  being  time  dependent  would  imply  that  cycle  dependent 


8 


NAWCADWAR  95033-4.3 


phcnoinencL  arc  independent*  of  rate  effects  • 

Finally,  the  Neuber  loading  condition  allows  both  creep  and  relax¬ 
ation  to  take  place  simultaneously.  The  creep/relaxation  may  be  either 
cycle  or  time  dependent.  Creep  and  relaxation  would  therefore  be  expected 
to  occur  for  notches.  The  Neuber  computer  simulation,  in  Figure  5, 
demonstrates  the  simultaneous  occurrence  of  both  cyclic  relaxation  and  creep 
that  could  be  caused  by  either  cyclic  or  time  dependent  material  responses. 

A  tensile  bias  is  also  evident  for  the  mean  stress  in  Figure  5  for  this 
Neuber  simulation. 

Relaxation  of  stress  in  metals  was  attributed  to  these  transients. 

The  two  types  of  relaxations  are  relaxation  of  mean  stress  and  relaxation  of 
residual  stress.  For  the  initial  tensile  mean  stresses  in  Figures  4  and  5, 
relaxation  of  mean  stress  is  clearly  evident.  For  the  Neuber  computer 
simulation  of  Figure  5,  the  residual  stress  is  seen  to  relax.  The  residual 
stress  is  the  notch  stress  at  points  in  time  when  the  net  section  stress  is 
zero . 

In  the  area  of  residual  stress.  Potter  in  Reference  [7]  reported  no 
change,  that  is,  relaxation  of  stress  for  shot  peened  uniform  bars  during 
elastic  loading.  The  tests  in  Reference  [7]  were  performed  at  room 
temperature  under  cyclic  loading  conditions.  The  tests  were  performed  for 
elastic  nominal  loading  so  that  the  stresses  and  strains  remained  elastic. 
The  tests  were  done  in  load  control  f or  R =  -1  and  R =  +0.5  ratios.  Also,  the 
effect  of  a  stress  concentration  was  not  included  in  the  study.  In 
Reference  [7],  for  a  uniform  bar,  the  residual  stress  did  change  if 
specimens  were  loaded  so  that  yielding  occurred.  When  yielding  was  induced, 
the  residual  stress  would  tend  to  be  completely  removed. 

Other  examples  of  residual  stress  changes  were  reported  by  Morrow, 
Reference  [2].  including  additional  work  due  to  other  investigators. 
Reference  [2]  also  used  smooth  specimens  tested  in  strain  control.  Morrow 
reasoned  that  the  stresses  varied  about  the  residual  stress  in  a  notched 
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member  for  elastic  stresses  which  meant,  in  this  special  case,  that  the 
residual  stress  and  the  mean  stress  were  identical.  Therefore,  the  stresses 
increased  and/or  decreased  above  and  below  the  residual  stress,  so  that  the 
residual  stress  was  the  starting  value  for  subsequent  stress  values  during 
cycling.  However,  the  stresses  are  known  to  vary  about  the  mean  stress 
during  a  strain  control  test.  Therefore,  an  elastic  strain  control  test 
would  simulate  relaxation  response,  so  that  the  variation  of  the  mean  stress 
is  comparable  to  the  variation  of  residual  stress  in  a  notched  member  when 
the  stresses  are  elastic.  Then,  the  strain  control  test,  of  a  uniform  bar, 
would  qualitatively  approximate  the  surface  response  of  a  notched  member. 

The  strain  control  test's  mean  stress  would  then  approximate  residual  stress 
variation.  Therefore,  changes  in  residual  stress  may  be  studied  by 
monitoring  the  changes  in  mean  stress  of  smooth  specimens  during  cycling  if 
stress  remains  elastic  so  that  residual  stress  and  mean  stress  are 
identical.  However,  if  subsequent  plastic  stresses  are  introduced  at  a 
notch,  the  memory  of  the  previous  state  of  residual  stress  is  erased,  and  a 
new  state  of  residual  stress  occurs.  Also,  for  the  more  general  case  of 
elastic— plastic  stresses  at  the  notch,  the  residual  stress  and  the  mean 
stress  are  not  coincident.  In  this  case,  relaxation  of  residual  stress  or 
relaxation  of  mean  stress  to  zero  will,  in  general,  produce  different  shifts 
in  stress— strai n  space  for  hysteresis  loops  during  cycling,  so  that  these 
phenomena  are  no  longer  the  same.  Morrow,  in  this  case,  used  relaxation  of 
mean  stress  while  Potter  supported  relaxation  of  the  residual  stress  during 
cycling.  Therefore,  fatigue  models  based  on  relaxation  of  residual  .stress 
or  relaxation  of  mean  stress  to  zero  should  produce  fundamentally  differing 
results. 


Cyclic  mean  stress  variation  has  been  seen  in  strain  control  tests 
of  metals,  and  this  effect  was  reported  in  Reference  [3].  Also,  in 
Reference  [4],  cyclic  mean  stress  variation  has  been  seen  in  Neuber  control 
tests  of  metals.  Therefore,  during  cyclic  loading,  Neuber  control  testing 
suggested  a  mean  stress  variation  for  notched  members. 
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Cyclic  mean  strain  variation  has  been  observed  in  stress  control 
tests,  with  an  example  of  such  variations  being  given  in  References  [3,  8]. 
Cyclic  mean  strain  variation  is  indicative  of  cyclic  creep,  also  referred  to 
as  strain  ratcheting,  but  could  also  be  due  to  time  dependent  behavior. 
Cyclic  mean  strain  variation  occurred  in  the  presence  of  a  mean  stress,  a 
tensile  mean  stress  causing  a  tensile  variation  in  mean  strain,,  whereas,  a 
compressive  mean  stress  causes  a  compressive  variation.  Also,  Neuber 
control  allowed  variation  of  the  mean  strain  during  cycling:  examples “for 
Neuber  control  may  be  found  in  Reference  [4].  Again,  during  cyclic  loading, 
Neuber  control  testing  suggested  the  occurrence  of  strain  ratcheting  for 
notched  members. 

Further  examples  of  transient  material  behaviors  at  room  temperature 
are  given  by  several  investigators.  Stainless  steel  has  been  shown  to 
exhibit  cyclic  and  time  dependent  creep  and  relaxation:  this  materials 
behavior  was  documented  in  Reference  [9].  In  Reference  [5],  a  Cr-Mo-V  rotor 
steel  displayed  cyclic  creep  at  ambient  temperature.  Finally,  Kuiath 
reported  in  Reference  [1]  steady  state  creep  in  a  titanium  alloy  at  room 
temperature.  The  behavior  in  Kurath  [1]  was  that  of  primary  creep  where  t.he 
creep  rate  eventually  decreased  to  zero.  For  creep  to  occur,  stresses  near 
or  above  the  elastic  limit  where  necessary  for  the  titanium  alloy  of 
Reference  [1]. 

To  summarize,  cycle  and  time  dependent  responses  exist  in  metals  at 
room  temperature.  Cycle  and  time  dependent  behavior  has  been  viewed  by 
various  workers  as  occurring  simultaneously  or  independently.  khen  cyc^e 
dependent  response  is  time  independent,  its  response  will  be  independent  of 
rate.  Stress  control  allowed  creep  responses  while  strain  control  allowed 
relaxation  to  occur.  Indications  from  Neuber  control  testing  suggested  that 
a  notched  member  allowed  both  creep  and  relaxation  to  take  place.  Finally, 
it  has  been  proposed  that  mean  stress  variation  may  be  used  to  infer  the 
variation  of  residual  stress  in  a  notched  member. 
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2.2  NUMERICAL  METHODS 

2,2.1  Stress  and  Strain  Response 

Stress  and  strain  response  has  been  modeled  using  unified  elastic- 
viscoplastic  models.  The  unified  elastic-viscoplastic  models  were 
time-temperature  dependent:  examples  of  these  models  are  listed  in 
References  [5,  10].  These  models  were  mostly  given  in  the  differential 
form.  Reference  [10]  described  these  models  as  being  stiff:  the  stiffness 
resulted  due  to  modeling  plastic  behavior.  The  stiffness  was  observed  when 
small  changes  in  one  variable  and  large  changes  in  another  variable  occurred 
simultaneously.  Stiff  differential  equations  have  resulted  in  the  study  of 
numerical  procedures  to  solve  them. 

The  viscoplastic  models  included  time  dependency  with  creep  and 
plasticity  interactions  to  describe  the  mechanical  response  of  metals: 
models  with  these  characteristics  were  described  in  Reference  [10]. 
Mechanical  response  may  be  observed  as  creep/relaxation  and  plastic  flow. 
Creep/relaxation  and  plastic  flow  were  modeled  as  interdependent  quantities. 
Each  quantity  depended  on  the  current  values  of  the  others.  The 
interdependent  models  were  called  unified  viscoplasticity  models.  Due  to 
the  time  dependency,  transients  and  rate  effects  were  seen.  Time 
independent  cyclic  hardening  or  softening  transients  were  also  included. 
Also,  the  elastic-viscoplastic  models  included  nontransient  steady  state 
cycling. 

Given  the  viscoplasticity  model,  cyclic  creep/rela.xation  may  be 
displayed.  Cyclic  creep  occurred  during  stress  control.  In  the  presence  of 
a  mean  stress,  the  mean  strain  varied.  Cyclic  relaxation,  took  place  under 
strain  control.  In  the  presence  of  an  initial  mean  stress,  the  mean  stress 
relaxed  to  zero.  Both  cyclic  creep  and  cyclic  relaxation  was  allowed  under 
Neuber  control.  The  mean  stress  and,  mean  strain  were  allowed  to  change. 
Therefore,  the  unified  elastic-viscoplastic  models  formed  the  constitutive 
laws  for  the  material. 
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Listed  in  Reference  [10],  the  unified  viscoplastic  models  had  a 
number  of  similarities.  Unified  models  may  be  developed  with  or  without 
yield  criterion.  (Both  forms  are  used.)  The  unified  elastic—viscoplastic 
models  assumed  plastic  incompressibility,  and  the  models  included  internal 
state  variables.  The  state  variables  depended  on  the  prior  loading  history 
and  were  combined  with  physical  variables  to  form  the. model.  The  state  and 
physical  variables  completely  defined  the  material  state  at  any  time,  and, 
once  known,  any  other  state  may  be  determined  in  the  future. 

The  first  state  variable  was  the  isotropic  hardening  variable  which 
was  also  called  the  drag  stress  or  yield  stress.  The  isotropic  hardening 
variable  was  usually  a  scaler.  This  variable  characterized  cyclic 
hardening/softening.  The  other  state  variable  was  known  as  the  kinematic  or 
directional  hardening  variable.  The  kinematic  hardening  variable  accounted 
for  the  Bauschinger  effect  that  is  also  referred  to  as  directional 
hardening.  The  kinematic  hardening  variable  also  modeled  low  plastic 
strains  for  theories  without  a  yield  surface.  The  kinematic  hardening 
variable  may  be  a  tensor  or  a  scaler.  If  it  was  a  scaler,  the  scaler  was 
the  function  of  a  tensor.  Other  terms  for  the  kinematic  hardening  variable 
were  the  equilibrium,  back,  or  rest  stress. 

The  unified  viscoplastic  constitutive  equations  must  be  integrated. 
Integration  of  viscoplastic  constitutive  equations  have  been  studied,  and 
typical  results  were  given  in  Reference  [10].  To  integrate  the  differential 
form  of  the  viscoplastic  constitutive  equations,  standard  procedures  have 
been  proposed. 

Complex  higher  order  integration  schemes  were  disliked  since  simpler 
ones  could  also  produce  satisfactory  results  and  were  as  or  more 
computationally  efficient.  High  order  integration  schemes  require  large 
amounts  of  computation  for  a  single  time  step,  and  simpler  integration 
schemes,  such  as  Euler  integration,  are  preferred;  this  being  a  simpler 
numerical  procedure  when  compared  to  methods  such  as  Runge-Kutta.  The  reason 
simpler  methods  were  preferred  was  that,  although  the  errors  were  higher, 
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less  computation  for  a  time  step  was  needed.  Therefore,  smaller  time  steps 
could  be  taken  and  still  be  computationally  efficient  and  achieve  a 
satisfactory  reduction  in  error. 

The  stability  of  integration  for  the  differential  form  was  of 
concern;  integration  stability  was  discussed  in  Reference  [10].  Because  the 
viscoplastic  formulations  are  computationally  stiff,  convergence  may  not 
take  place  for  large  time  steps;  it  may  occur  giving  erroneous  results. 

Euler  integration  was  found  to  be  unconditionally  stable  if  the  strain 
increment  was  at  most  0.0001:  this  restriction  was  only  necessary  during 
plastic  increments.  Therefore,  adaptive  time  control  methods  were  conceived 
to  make  integration  more  effective.  Adaptive  time  control  allowed  larger 
increments  during  elastic  loading  and  smaller  increments  during  plasticity 
to  be  utilized.  Allowing  large  time  steps  during  elastic  strains  and 
needing  smaller  time  steps  during  plasticity  were  a  common  feature  of  all 
the  viscoplasticity  models  in  the  differential  form.  This  difficulty  was 
present  independent  of  the  type  of  numerical  integration  scheme  chosen.  The 
need  for  changing  the  step  size  was  characteristic  of  the  differential 
equations  being  computationally  stiff  (which  means,  at  a  single  instant  in 
time,  they  are  numerically  ill  conditioned  since  different  variables  produce 
both  small  and  large  values)  during  plasticity. 

In  view  of  the  numerical  difficulties  of  integrating  the 
differential  forms,  Walker,  in  Reference  [5],  has  proposed  a  recursive 
integral  method.  The  numerical  integration  method  given  by  Walker  was 
stable  for  his  recursive  integral  formulation  for  any  size  time  step. 
Accuracy,  however,  may  be  undesirably  influenced  by  step  size.  For  large 
and  plastic  strains,  convergence  was  never  a  problem  no  matter  how  large  a 
time  step  was  taken.  The  only  consideration  was  the  control  of  errors. 
Convergence  to  the  correct  value  in  the  elastic  range  forced  a  smaller  time 
step.  If  plastic  stresses  and  strains  were  to  be  determined,  satisfactory 
results  were  possible  in  one  time  step.  Walker’s  method  seems  to  be  suited 
to  a  constant  number  of  intervals  in  which  there  is  a  lower  limit  on  the 
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interval  length.  If  the  loading  is  completely  elastic  and  the  number  of 
intervals  is  constant,  the  stress  and  strain  intervals  are  shorter. 

However,  if  the  loading  interval  is  large  enough  to  produce  plasticity,  the 
stress  and  strain  internals  are  larger.  The  result  is  that  the  intervals 
are  refined  for  elastic  loading  and  coarser  for  plastic  loading.  This 
behavior  was  opposite  to  the  requirements  for  the  differential  forms.  The 
differential  formulations  dictated  a  maximum  strain  interval  for  plasticity 
which  was  usually  small.  The  elastic  intervals  were  allowed  to  be  much 
larger  for  the  differential  forms.  The  integral  form  seems  to  be  more 
efficient  in  step  size  utilization,  if  one  considers  that  in  a  notched 
member,  the  amount  of  time  spent  calculating  plastic  solutions  may  be  much 
greater  than  that  spent  for  elastic  values. 

Walker’s  integral  equations  had  to  be  converted  to  a  numerical 
algorithm  for  computer  evaluation.  The  original  procedure  was  first  to 
divide  the  interval  of  integration  into  subintervals.  Next,  over  each 
subinterval,  the  integrand  was  approximated  as  constant  during  a 
subinterval,  permitting  the  integral’s  value  to  be  evaluated  approximately. 
Finally,  over  the  complete  interval  of  integration,  the  values  of  the 
subintervals  may  be  summed  to  form  the  value  of  the  integral..  Therefore, 
the  integration  was  in  piece-wise  constant  steps.  Since  the  variables  in  the 
const itutive . equations  were  interdependent  for  the  unified  models,  a 
nonlinear  system  of  equations  resulted  for  the  numerical  algorithm.  The 
system  of  nonlinear  equations  was  therefore  implicit.  Again,  the  variables 
in  the  nonlinear  equations  were  interdependent;  therefore,  Walker  called  the 
integration  scheme  the  recursive  integration  method. 

However,  Walker  refined  his  original  recursive  integration  method: 
these  improvements  were  reported  in  References  [11—13].  The  differential 
equations  were  again  recast  as  integral  equations.  The  integral  equations 
were  then  approximated  for  numerical  analysis  by  an  asymptotic  expansion. 

The  resulting  implicit  equations  were  then  formulated  to  be  solved 
iteratively  by  the  Newton-Raphson  method.  In  Reference  [12],  this  method  was 
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applied  to  a  general  first  order  differential  equation:  the  details  are 
given  in  the  Appendix  of  Reference  [12].  Reference  [11]  illustrates  the 
improved  procedures  use  with  several  viscoplastic  models.  Also,  in 
Reference  [11] >  numerical  results  were  compared  with  a  self-adaptive  Euler 

method . 

To  obtain  the  constitutive  laws  in  integral  form,  the  differential 
equations  must  be  rewritten.  A  method  for  rewriting  a  first  order 
differential  equation  as  an  integral  equation  was  presented  in  Reference 
[14];  in  addition,  the  integration  involved  the  use  of  an  integrating 
factor.  The  integration  factor  method  was  also  used  by  Walker.  In  the 
Appendix  of  Reference  [12],  Walker’s  procedure  for  producing  the  integral 
equation  from  a  first  order  differential  equation  was  outlined,  but  there 
must  be  a  first  order  differential  equation.  The  procedure  for  recasting 
the  constitutive  equations  into  first  order  differential  equations  was 
outlined  in  Reference  [11]. 

Neuber’s  rule  allows  the  determination  of  the  local  cyclic  stress 
and  strain.  References  [15,  16]  describe  Neuber’s  rule.  Any  constitutive 
relationship  may  be  used  for  the  stress-strain  response:  this  may  or  may  not 
include  mechanical  cycle  and  time  dependent  transient  behavior.  Combining 
the  constitutive  equations .with  Neuber’s  rule  allowed  the  effects  of  a 
stress  concentration  to  be  included.  Comparison  of  Neuber’s  rule  with 
analytical  studies  were  given  in  References  [17-20]. 

By  applying  Neuber’s  rule  with  the  appropriate  constitutive 
equations,  local  stresses  and  strains  are  determined  and  sequence  effects 
(the  sequential  order  in  which  cycles  occur)  are  modeled  in  a  notched 
member.  The  constitutive  relations  may  include  cyclic  hardening  and 
nonlinear  stress— strain  behavior.  Also,  if  cycle  and  time  dependency 
occurred  in  the  constitutive  relations,  relaxation  along  with  rate  effects 
were  included. 

For  a  notched  member,  once  the  local  stress— strain  behavior  was 
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determined,  a  fatigue  analysis  was  possible.  Examples  of  using  Neuber’s 
rule  for  fatigue  analysis  without  transient  effects  in  the  material  model 
are  discussed  in  References  [17,  18,  20,  21].  Previous  numerical  work 
considering  fatigue  and  a  time  dependent  material  included  that  of  Kurath  in 
Reference  [1]  in  which  Neuber’s  rule  was  used.  Kurath  used  a  load  sequence 
of  ramping  followed  by  a  hold  period;  so,  the  major  amount  of  time  dependent 
behavior  was  during  the  hold  period.  Ramping  was  modeled  by  the  cycle  and 
time  independent  cyclic  stress-strain  curve.  Time  dependence  was  included 
during  the  hold  period  during  which  a  creep  equation  was  used.  Kurath’s 
model  included  sequence  and  mean  stress  effects.  The  mean  stress  value 
changed  the  fatigue  life.  A  tensile  mean  stress  would  shorten  the  fatigue 
life,  whereas,  a  compressive  mean  stress  would  lengthen  the  fatigue  life. 
Also,  relaxation  was  present  during  hold  periods,  and  cycle  and  time 
dependent  mechanical  behavior  was  excluded  during  ramping. 

The  modeling  of  cyclic  ratcheting  and  cyclic  relaxation  does  not 
require  a  time  dependent  material  model;  these  behaviors  may  be  produced  by 
time  independent  plasticity  models.  For  time  independent  models,  the 
ratcheting  effects  were  inherently  due  to  the  occurrence  of  plasticity.  The 
ratcheting  occurred  in  the  presence  of  a  mean  stress.  Time  independent 
plasticity  models  with  ratcheting  were  provided  in  References  [22-26].  With 
respect  to  ratcheting,  the  viscoplastic  models  were  found  to  over  predict 
the  effect.  For  the  viscoplastic  models  during  cycling.  Reference  [25] 
pointed  out  the  need  to  improve  the  prediction  of  ratcheting  and  closure  of 
minor  cycles.  Closure  is  due  to  mechanical  memory  which  manifests  itself  on 
loading,  unloading,  and  reloading  as  a  partial  retracing  of  the  unloading 
path  followed  by  a  continuation  of  the  original  stress-strain  loading  path. 
Closure  is  poor  for  viscoplastic  models  because  on  reloading  while  retracing 
the  unloading  path  they  deviate  earlier  than  observed  experimentally  before 
continuing  the  original  loading  path. 
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2.2.2  Fatigue  Life  Prediction 

Fatigue  life  prediction  was  made  from  the  local  stress-strain 
behavior.  Even  if  the  local  stress-strain  behavior  contained  transients, 
fatigue  life  may  be  computed  based  on  traditional  methods.  The  traditional 
methods  were  cycle  counting  and  strain-life  curves.  Cycle  counting  was  done 
to  identify  hysteresis  loops.  For  each  hysteresis  loop,  the  strain 
amplitude  and  mean  stress  were  determined.  For  each  loop,  the  strain 
amplitude  and  strain-life  curves  were  combined  to  compute  damage.  Mean 
stress  effects  on  damage  were  included  using  mean  stress  parameters  such 
that  a  tensile  mean  stress  shortens  fatigue  life,  and  a  compressive  mean 
stress  lengthens  fatigue  life.  Finally,  for  the  collection  of  hysteresis 
loops,  damage  summations  were  performed  for  all  loops  counted. 

Rainflow  cycle  counting  is  described  in  References  [17,  21,  27-29]. 
Fatigue  and  cumulative  damage  procedures  are  outlined  in  References  [17,  18, 
21],  and  these  procedures  included  strain-life  curves,  mean  stress,  and 
Miner’s  rule. 

Before  this  study,  typical  damage  calculations  were  previously  based 
on  stable  hysteresis  loops  as  outlined  in  References  [17,  18,  30].  Stable 
hysteresis  loops  do  not  contain  transients.  Therefore,  for  stable 
hysteresis  loops,  there  was  a  unique  stress  amplitude  for  each  strain 
amplitude.  Due  to  transient  behavior  a  unique  stress  amplitude  does  not 
exist  for  each  strain  amplitude.  Experimental  and  numerical  examples  and 
also  a  discussion  of  this  behavior  was  given  in  References  [3-5,  10-12,  23, 
24]  for  cyclic  loading.  .41so,  mean  stress  is  not  repetitive  for  the 
transient  case  for  Rainflow  counted  cycles  as  compared  to. the  appropriate 
nontransient  case  when  constant  cycling  is  occurring. 
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2.3  PREVIOUS  COMPUTER  PROGRAMS 

Computer  based  applications  were  developed  by  Martin  and  Wetzel  for 
local  strain  fatigue  analysis.  Martin’s  work  is  detailed  in  Reference  [31] > 
and  Wetzel’s  contribution  is  documented  in  Reference  [6].  The  computer 
modeling  included  loop  shape,  cyclic  hardening,  and  relaxation  of  mean 
stress.  The  modeling  was  done  by  modeling  the  stable  cyclic  stress-strain 
curve.  The  stable  cyclic  stress-strain  curve  was  modeled  as  a  series  of 
linear  segments.  To  achieve  the  desired  hardening  and  relaxation,  the 
slopes  of  the  cyclic  stress-strain  curve  segments  were  modified.  The  above 
method  was  useful  in  predicting  time  independent  cyclic  effects. 

On  the  other  hand,  the  local  stress-strain  approach  was  incorporated 
in  a  computer  program  by  Brose  as  described  in  Reference  [3].  He  based  the 
stress-strain  analysis  completely  on  the  stable  cyclic  stress-strain  curve. 
Again,  the  cyclic  stress-strain  curve  was  divided  into  a  series  of  linear 
segments.  But,  the  slopes  of  the  segments  did  not  vary.  The  cyclic  stress- 
strain  curve  segments  were  used  repeatedly  in  a  certain  order  to  generate 
hysteresis  loops.  Following  the  load  history,  loops  were  generated  while 
satisfying  Neuber’s  rule.  The  model  included  sequence  and  mean  stress 
effects  where  the  mean  stress  caused  a  decrease  or  increase  in  fatigue  life. 
Cycle/time  dependent  behavior  was  not  included.  Brose’ s  computer  model  did 
not  account  for  transient  variations  in  mean  stress  or  strain  amplitude.  In 
summary,  Brose’ s  computer  model  included  variable  amplitude  histories,  the 
stable  cyclic  stress— strain  curve,  Neuber’s  rule,  cycle  counting,  mean 
stress  effects,  sequence  effects,  Miner’s  rule,  and  strain— life  curves.  The 
variable  amplitude  load  history  accounted  for  the  variation  in  the  load  and 
gave  its  sequential  order.  Miner’s  rule  was  used  for  fatigue  damage 
summation. 

More  recent  computer  work  was  provided  by  Dowling  and  Khosrovaneh  in 
References  [30,  32].  The  work  of  Dowling  and  Khosrovaneh  was  based  on 
fundamental  developments  due  to  Conley  and  Socie  in  References  [33,  34], 
respectively.  These  methods  placed  upper  and  lower  bounds  on  the  fatigue 
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life.  This  method  was  based  on  observing  that  all  minor  hysteresis  loops 
must  be  contained  within  a  major  limiting  loop.  The  positioning  of  the 
minor  loops  inside  of  a  major  limiting  loop  was  visible  using  stress-strain 
plots.  Therefore,  the  major  limiting  hysteresis  loop  placed  a  bound  on  the 
mean  stress  values  of  the  minor  loops.  Again,  only  the  stable  cycle 
stress-strain  response  was  studied. 

2.4  X-RAY  STRESS  MEASUREMENT 

The  determination  of  stress  from  x-ray  measurements  involves  the  use 
of  the  d-spacing  versus  sin^tp  method.  The  d-spacing  versus  method  is 

described  in  References  [35-39]  and  was  applicable  for  the  case  of  biaxial 
stress,  and  it  was  used  to  determine  the  normal  stress  in  a  plane  which  was 
the  surface  of  the  specimen.  The  d-spacing  versus  sin^ip  relationship  is 
given  in  the  following  equation: 

-j^  ^^x—ray  ^  “h  ^ 

where: 

df  -  The  lattice  spacing  of  a  crystal  plane  whose  normal 

^  forms  an  angle  psi  with  the  normal  to  the  surface,  and 

the  dependent  variable  for  the  linear  least  squares 
fit. 

dj^  -  The  lattice  spacing  of  a  crystal  plane  which  is 

parallel  to  the  surface  whose  value  is  taken  to  be  the 
intercept  when  ^  is  zero  from  the  linear  least  squares 
fit. 

The  x-ray  elastic  constant. 

The  mechanical  stress  determined  by  x-ray  diffraction 
after  a  linear  least  squares  fit  is  performed. 

sir?il)  -  The  dependent  variable  for  the  linear  least  squares 
fit. 

^  —  The  angle  formed  by  the  normal  of  any  crystal  lattice 

plane  and  the  normal  to  the  surface. 


(1  +  ^) 
E 

^x—ray 
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The  stress  was  evaluated  in  a  predetermined  direction.  The  d  spacing  versus 
relationship  forms  a  straight  line  whose  slope  is  proportional  to  the 
stress.  The  constant  of  proportionality  contained  the  x-ray  elastic  constant 

The  d-spacing  is  the  distance  between  a  particular  set  of  crystal 
E 

lattice  planes  which  is  symbolized  as  and  d„  in  Equation  1. 

Crystal  planes  diffract  monochromatic  x-radiation  in  a  prescribed 
manner  based  on  their  spacing.  By  measuring  the  spacing  of  crystal  lattice 
planes,  the  stress  could  be  determined.  The  spacing  of  crystal  lattice 
planes  is  directly  measured  by  x-ray  diffraction,  and  the  diffraction  is 
given  by  Bragg’s  law  as  described  in  References  [35,  36,  38-40]. 

The  crystal  lattice  spacing  (the  d-spacing)  changed  if  the  stress 
field  changed.  Also,  for  a  single  stress  field,  the  d-spacing  changes  with 
is  the  angle  of  tilt  of  the  diffracting  planes  with  respect  to  the 
surface  of  the  specimen.  Therefore,  on  the  diffracting  planes  at  each  tj) 
tilt,  for  a  single  stress  field,  the  stress  exerted  changed  due  to  the 
change  in  V*?  it  ">ay  be  shown  by  static  equilibrium  that  on  the  planes  the 
stresses  acting  changed  for  various  V’  tilts.  Using  Bragg’s  law,  the  d- 
spacing  changes  were  observed  as  a  change  in  the  diffraction  angle.  Figure 
6  illustrates  the  change  in  d-spacing  and  the  change  in  diffraction  angle,  6, 
resulting  from  a  change  in  tilt.  The  change  in  diffraction  angle,  0,  was 
recorded  as  a  shift  of  the  intensity  peak  which  was  measured  by  x-ray 
diffraction. 

For  the  case  of  biaxial  stress,  the  d-spacing  can  be  shown  to  vary 
according  to  the  d-spacing  versus  sin^4>  relationship  of  References  [35-39]. 
The  d-spacing  is  the  dependent  variable,  while  sin'^tp  is  the  independent 
variable.  The  relationship  is  linear  for  materials  with  little  or  no 
texture  as  described  in  References  [35-37,  40].  A  minimum  of  two  tilts 
must  be  measured  to  define  the  line.  For  the  plotted  line,  the  stress  is 
proportional  to  the  slope.  The  constant  of  proportionality  is  the  x-ray 
elastic  constant.  The  x-ray  elastic  constant  must  be  determined 
experimentally.  From  the  slope,  the  stress  determined  is  in  the  plane  of  rp 
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tilt;  that  is,  along  the  direction  of  i>  tilt.  Also,  the  stress  is  parallel 
to  the  specimen  surface.  The  process  is  as  follows:  making  measurements  at 
several  V-  angles,  determining  the  resulting  diffraction  angles,  using 
Bragg’s  law  to  determine  the  d-spacing,  plotting  d  versus  sin^rj),  determining 
the  slope,  and  using  the  x-ray  elastic  constant  to  compute  the  stress.  An 
actual  plot  of  d-spacing  versus  sin^ip  is  included  in  Figure  7. 

X-ray  stress  measurements  were  made  previously  by  other 
investigators.  X-ray  stress  measurement  of  residual  stress  was  done  and 
documented  in  References  [41,  42]  which  did  not  include  changes  in  residual 
stress  with  cycling.  Residual  stress  was  also  studied  by  Potter  who  studied 
residual  stress  changes  in  uniform  shot-peened  bars.  The  uniform  shot- 
peened  bars  were  subjected  to  cyclic  loading.  Potter’s  results  were  given 
in  Reference  [7].  For  shot— peening  induced  residual  stress,  changes  were 
also  reported  by  Vohringer  in  Reference  [43].  Vohringer  studied  residual 
stress  changes  due  to  both  annealing  and  mechanical  loading.  Residual 
stress  relaxation  in  uniform  shot-peened  specimens  was  observed  for  gross 
yielding,  as  well  as  when  local  yielding  occurred  at  the  surface. 

Considering  the  initial  value  of  the  residual  stress  at  the  surface,  the  net 
section  stress  needed  to  yield  the  surface  could  be  predicted  so  that  the 
surface  seems  to  remember  prior  plastic  history  and  its  influence  on  future 
plasticity  (memory).  Memory  may  be  attributed  to  phenomena  such  as  the 
Bauschinger  effect  for  kinematic  hardening. 

Unexpected  surface  behavior  has  been  previously  observed  in 
Reference  [44]  for  metals  by  x-ray  stress  analysis.  The  unexpected  surface 
behavior  can  not  be  accounted  for  by  mechanics  which  were  based  on  observed 
bulk  behavior.  The  unexpected  surface  behavior  was  called  a  surface  effect. 

For  a  carbon  steel  at  room  temperature  during  strain  cycling,  a 
uniform  specimen  displayed  surface  effect  residual  stresses  in  Reference 
[^44 j ,  The  surface  stress  was  measured  by  x-ray  diffraction. 
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>  6.  Residual  stress  measurement  x— ray  diffraction 
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Sample  Description  s 

A2R04A/EP/L0ADED  Specimen#  away  ■from  detector  PSPC  157BV 
measurement#  1 

Stress  Spectra  File  Specifications 

Residual  Stress  (ksi)  51.40 

Statistical  Error  <+/-)  (ksi)  1.82 


Figure  7.  Residual  stress  analysis  repo^  graphs 


000625. SPC 

(mpa)  354.37 
(mpa)  12.54 
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After  cycling,  the  residual  stress  was  higher  near  the  surface  than  in  the 
interior  with  the  residual  stress  tapering  off  to  a  depth  of  1000  microns  or 
0.00394  inches.  Since  residual  stresses  are  induced  by  plastic  strain 
mismatch,  the  surface  plastic  strains  were  different  than  the  bulk  to  the 
1000  micron  depth.  Reference  [44]  reasoned  that  a  lower  yield  strength 
existed  in  the  vicinity  of  the  surface.  Also,  a  different  strain  hardening 
coefficient  at  the  surface  was  reasoned  as  able  to  cause  a  surface  residual 
stress  in  a  uniform  specimen. 
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3.0  MATERIALS 

The  materials  studied  were  wrought  titanium  and  aluminum  alloys. 

The  stock  material  was  in  plate  form.  The  aluminum  was  in  a  3/4  inch  thick 
plate,  and  the  titanium  was  in  a  3/8  inch  thick  plate.  The  plates  of  each 
alloy  were  picked  which  had  a  microstructure  suitable  for  x-ray  stress 
analysis  where  the  grain  structure  was  fine  enough  and,  therefore,  a  large 
enough  number  of  grains  were  irradiated  by  the  x-ray  beam.  Also,  a  large 
number  of  irradiated  grains  are  needed  if  texture  (preferred  orientation)  is 
not  to  be  present  although  it  is  not  sufficient  to  prevent  texture.  The 
aluminum  was  designated  as  7475-T651  Al.  7475-T651  A1  alloy  shares  a  similar 
composition  with  7075  Al  alloy  with  the  7475-T651  Al  alloy  having  a  tighter 
tolerance  on  the  composition.  The  composition  is  the  quantity  of  elemental 
metals,  alloying  elements,  and  chemical  impurities  allowed  in  an  alloy. 
Therefore,  7475-T651  Al  should  be  very  similar  to  7075-T6  Al  in  mechanical 
properties  and  behavior.  The  titanium  was  designated  as  Ti-6A1-4V.  The 
7475_X651  Al  and  Ti-6A1-4V  plates  were  used  to  make  all  specimens.  The 
selected  alloys’  mechanical  properties  are  listed  in  Table  1. 
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TABLE  1.  Materials  Identification  and  Properties 


Ti-6A1-4V 

7475-T651  A1 

Form 

3/8  in.  plate 

3/4  in.  plate 

Condition 

Mill  annealed  1450T 

Solution  treated 
and  aged 

Identification 

Ingot  No: 

990211-02-00 

Serial  No: 

511348-1 

Source 

RMI,  Niles,  OH 

Alcoa  Labs, 

Alcoa  Ctr. ,  PA 

Ultimate,  ksi 

142 

93.7 

Yield,  0,2%,  ksi 

133 

82.6 

Elongation,  %  ! 

14 

6 
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4.0  MODELING 

4.1  INTRODUCTION 

The  local  stress-strain  response  was  modeled  for  notched  members. 

The  notched  members  were  to  be  made  from  metals  which  were  to  be  subjected 
to  uniaxial  loads.  For  the  given  loads,  the  notch’s  mechanical  behavior  was 
modeled  using  the  local  strain  approach.  The  local  strain  approach  was  used 
because  cracks  were  assumed  to  initiate  at  notches  which  are  also  stress 
concentrations.  The  initiation  of  cracks  at  stress  concentrations  was 
discussed  in  Reference  [18].  Therefore,  notches  were- considered  critical 
areas.  The  notch’s  mechanical  behavior  was  to  be  modeled  for  cycling.  To 
model  the  notch’s  cyclic  mechanical  behavior,  the  model  required  including 
the  material  behavior  and  the  effect  of  notch  geometry. 

The  following  material  details  were  included  in  the  model.  The 
material  was  to  be  at  room’ temperature  as  assumed  by  Landgraf  in  Reference 
[45].  The  simulation  of  the  cyclic  nonlinear  stress-strain  was  modeled  using 
Walker’s  unified  viscoplasticity  model.  The  occurrence  of  cycle  dependent 
hardening  or  softening  was  included.  Also,  the  generation  of  time  dependent 
creep/relaxation  was  represented.  Therefore,  the  modeling  described  both 
transient  and  steady  state  mechanical  response.  Due  to  the  choice  of 
Walker’s  constitutive  model,  cycle  dependent  creep/relaxation  was  modeled. 

The  cycle  dependent  creep/relaxation  included  both  time  and  cycle  dependent 
effects  as  discussed  in  References  [5,  22-26].  Walker’s  model  was  taken 
from  Reference  [5] . 
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The  influence  of  the  notch  geometry  was  included  by  the 
incorporation  of  Neuber’s  rule  in  the  analysis.  Previous  examples  of  such 
usage  of  Neuber’s  rule  was  given  in  References  [17,  18,  21].  The  use  of 
Neuber ’ s  rule  was  limited  to  the  uniaxial  load  case.  Neuber’s  rule 
accounted  for  the  stress-strain  concentration  effects  of  the  notch.  The 
notch’s  expected  local  stress-strain  behavior  was  then  determined  for  any 
load  spectrum  of  interest.  The  most  general  case  of  variable  amplitude 
spectrum  loads  was  included.  The  use  of  Neuber’s  rule  avoided  the  use  of 
two-dimensional  finite  element  analysis. 

In  the  present  study,  net  section  stresses  and  strains  were 
nominally  elastic.  The  nominally  elastic  stresses  and  strains  condition 
avoided  needing  time  deperitlent  behavior  modeling  for  the  net  section. 
Limiting  the  net  section  to  the  nominally  elastic  case  was  justified  since 
loads  high  enough  to  cause  net  section  yielding  occur  infrequently  in 
structural  components.  Therefore,  the  usage  of  Neuber’s  rule  was  greatly 
simplified. 

4.2  VISCOPLASTIC  CONSTITUTIVE  LAV 

The  constitutive  equations  in  integral  form  are  given  in  Table  2  for 
the  uniaxial  case.  Table  3  gives  the  names  of  the  various  variables  and 
constants.  The  model  has  13  material  constants.  The  magnitude  of  iV^^  +  iV2 
controlled  the  rapidity  of  approach  of  the  equilibrium  stress,  to  its 
saturated  value  which  was  discussed  in  Reference  [5].  A  large  value  of 

caused  rapid  growth  of  Q  resulting  in  elastic,  perfectly  plastic 
response.  Intermediate  values  N^^N2  resulted  in  nonlinear  hardening.  A 
small  value  iV^  +  A^^  resulted  in  the  slow  growth  of  Q.  A  small  value  of  N2 
results  in  a  viscoelastic  response.  The  model  does  not  use  a  yield  surface. 

The  equations  in  Table  2  must  be  rewritten  in  a  form  suitable  for 
numerical  evaluation.  Several  approximations  must  be  performed  during  this 
revision.  The  methods  used  in  obtaining  the  rewritten  equations  were  given 
in  Reference  [5],  and  the  detail  of  the  derivations  of  the  equations  used  is 
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given  in  Appendix  A.  An  illustrative  example  of  converting  a  linear  first 
order  differential  equation  follows.  A  linear  first  order  differential 
equation  has  the  form; 

f  -f  Px  =  Q 


where  P,  and  Q  are  all  functions  of  time  only.  An  integrating  factor  can 
be  defined  as: 

iPdt  P(t) 

=  e  ^  ^ 

so  that 

=  (XQ 


with  solution 


rearrangement  gives 

I  vm‘) 

The  final  equation  above  is  in  the  form  of  Walker’s  integral  equations  which 
are  given  in  Table  2. 
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TABLE  2.  Walker’s  Unified  Viscoplasticity  Theory. 
Recursive  integration  method  in  Reference  [5]. 
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TABLE  3.  Viscoplasticity  Variables  and  Constants. 


or  -Mechanical  stress 

€  “Total  strain 

c  “Plastic  strain 

—  Physical  variables 

r  “Cumulative  plastic  strain 

k  “Isotropic  hardening  coefficient  — 

Q  “Kinematic  hardening  coefficient 

—  State  variables 

q  -Variable  in  integrating  factor  for  mechanical  stress 

g  -Variable  in  integrating  factor  for  equilibrium  stress 

t  -Time 

(  -Time;  variable  of  integration 

-13  materiaT  constants 
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4.3  DETERMINING  VISCOPLASTIC  MODEL  CONSTANTS 

The  evaluation  of  the  constants  for  Walker’s  model  involved  using 
data  from  strain  control  hysteresis  loops.  The  test  data  were  gathered  at 
different  strain  rates.  One  method  to  determine  the  constants,  indicated  by 
References  [46,  47],  involved  the  use  of  computer  simulation  combined  with 
nonlinear  optimization  or  minimization  techniques.  The  hysteresis  loops 
were  numerically  generated  with  given  initial  constants  and  compared  to  the 
actual  test  data.  One  method  of  doing  the  comparison  was  to  form  the  square 
of  the  difference  between  the  generated  curve  a.nd  the  experimental  curve 
according  to  the  following  equation: 

i-1 

This  summation  may  be  extended  to  a  numerical  integration  as  in  the  follow- 
ing  equation : 

J  0 

The  above  equations  are  both  the  method  of  least  squares.  The  summation  by 
numerical  integration  would  smooth  errors  and  noise  in  the  data  as  an 
expected  benefit.  If  enough  data  points  per  hysteresis  loop  were 
calculated,  the  arithmetic  sum  should  be  satisfactory  even  in  the  presence 
of  noise.  The  constants  were  adjusted  to  minimize  the  magnitude  of  the  sum. 
Automated  search  procedures  were  available  as  part  of  standard  minimization 
and  optimization  routines.  One  source  of  such  routines  was  the  IMSL  FORTRAN 
library. 

For  the  Ti— 6A1— 4V  titanium  and  the  7475— T651  aluminum,  it  was  not 
possible  to  determine  constants  for  the  two  alloys  due  to  efforts  by  Walker 
[47]  using  optimization  procedures  in  a  computer  code  developed  by  him.  We 
were  unable  to  compute  constants  because  the  hysteresis  loops  do  not  vary 
significantly  with  strain  rate  for  the  chosen  materials.  Therefore,  little 
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or  no  time  dependence  occurred  during  fully  reversed  cycling.  The  cycling 
conditions  included  uniaxial  loading,  strain  control,  fully  reversed  strain, 
constant  strain  amplitude,  varying  strain  rates,  and  several  specimens,  one 
for  each  strain  rate.  The  varying  strain  rates  essentially  didnot  result 
in  observed  changes  in  stress  amplitude.  The  unchanging  stress  amplitude 
meant  the  tests  displayed  rate  independent  behavior,  and  the  rate 
independent  case  was  not  included  in  the  viscoplastic  modeling.  In  general, 
the  viscoplastic  models  and,  in  particular.  Walker’s  model  do  not  reduce  to 
the  rate  independent  case  which  was  indicated  by  Walker  in  Reference  [47]. 
When  the  viscoplastic  models  are  used  to  simulate  rate  independent  behavior, 
they  become  computationally  stiff  and  difficult  to  solve  numerically 
resulting  in  the  optimization  routine  failing  to  converge  to  a  solution. 

Also,  performed  static  relaxation  tests  showed  small  amounts  of  time 
dependence  for  plastically  deformed  uniaxially  loaded  specimens  where  the 
static  relaxation  was  observed  during  a  constant  displacement  hold  period. 
For  the  static  relaxation  tests,  the  stress  dropped  with  time  as 
anticipated. 

4.4  INCLUDING  NEUBER’S  RULE  TO  APPROXIMATE  NOTCH  EFFECTS 

Neuber’s  rule  allowed  approximating  the  local  notch  stresses  and 
strains  given  the  nominal  load  history.  The  rule  limited  the  analysis  to 
the  case  of  uniaxial  loading,  and  it  made  the  approximation  possible  because 
it  gives  the  relationship  between  net  section  stress-strain  and  notch 
stress-strain  responses.  From  the  load  history,  the  net  section  stresses 
and  strains  were  given  as  input  to  Neuber’s  rule.  Neuber’s  rule  may  be 
simplified  if  there  is  a  one-to-one  correspondence  between  the  net  section’s 
stress  and  strain;  for  this  one-to-one  correspondence,  only  the  net  section 
stress  is  needed  as  input.  For  metals,  the  simplification  is  definitely 
valid  for  elastic  nominal  loading  since  the  nominal  stresses  and  strain 
follow  a  linear  relationship  which  is  true  even  when  cyclic  and  time 
dependent  material  behavior  is  considered.  Cycle  and  time  dependent 
response  does  not  occur  for  elastic  loading  in  metals.  Therefore,  for 
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elastic  net  section  loading,  the  stress-strain  values  input  to  Neuber’s  rule 
did  not  need  modification  to  include  cycle  and  time  dependent  net  section 
behavior. 


The  determination  of  the  local  uniaxial  stress  and  strain  history  in 
the  notched  member  utilized  Walker’s  integral  viscoplastic  constitutive 
equations  combined  with  Neuber’s  rule.  The  previously  given  Figure  5  is  a 
plot  of  the  notch  stress-strain  response  due  to  Walker’s  constitutive  laws 
extended  with  Neuber’s  rule  in  this  investigation.  Walker’s  constitutive 
laws  interpolated  the  stress-strain  response  between  reversal  points.  This 
response  included  creep,  relaxation,  cyclic,  rate,  time  dependent  behaviors, 
and  the  notch’s  effect  on  these  behaviors. 

The  typical  application  of  Neuber’s  rule  defined  hyperbolae  along 
the  stress— strain  path.  The  hyperbolae  were  given  by  the  variation  of  the 
net  section  nominal  stress  with  time  from  one  reversal  point  to  the  next. 
Typically,  the  variation  of  hyperbolae  were  given  only  from  reversal  point 
to  reversal  point  according  to  the  following  equation: 


Act  Ac  = 


E 


(4) 


For  the  equation  above,  intersection  of  the  stress-strain  response  with  a 
hyperbola  located  each  reversal  point  in  stress-strain  space.  The  above  form 
of  Neuber’s  rule  was  correct  for  nontransient  behavior.  For  nontransient 
behavior,  the  complete  stress-strain  path  between  reversals  was  not  needed 
to  locate  each  reversal  point.  Therefore,  the  above  form  of  Neuber’s  rule 
only  involved  the  ranges  and  amplitudes  for  stress  and  strain  for  cycling. 

When  transients  of  cycle  and  time  were  considered,  the  intervening 
stress-strain  response  must  be  determined  since  the  loading  rate  and  all 
transients  must  be  considered.  Therefore,  Neuber’s  rule  was  written  in  a 
subincrement  form  that  allowed  the  determination  of  the  stress— strain 
response  between  reversal  points.  The  subincrement  Neuber’s  rule  was 
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\USS'  +  SS)f  (5) 

c  =  (6(7^  + 

according  to  the  notation  of  Figure  8. 

The  quantities  6cr' ,  and  corresponded  to  the  previously  computed 
cumulative  stress  and  strain  increments  for  the  previous  cumulative  load 
increment  SS' .  The  quantities  Scr',  and  6S'  were  measured  cumulatively  from 
the  previous  reversal  point  until  the  next  reversal  point  was  reached. 

After  reaching  the  next  reversal,  it  became  the  reference  point  for  future 
measurements  of  8a',  St',  and  6S' .  The  quantities  8a,  and  8t  correspond  to  the 
present  stress  and  strain  subincrements  for  the  present  load  subincrement  8S . 
The  details  of  incorporating  Equation  5  with  Walker’s  model  are  given  in 
Appendix  A.  The  result  of  this  incorporation  is  an  iterative  numerical 
routine  for  notch  stress-strain  response. 
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Figure  8.  Sub  increment  Neuber  ^  s  rule.. 
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4.5  FATIGUE  DAMAGE 

It  was  proposed  that  if  total  strain-life  data  were  obtained  from 
constant  amplitude  strain  control  tests,  a  strain-based  damage  calculation 
could  be  made  in  the  presence  of  transients.  For  strain  control  testing, 
the  total  strain  does  not  vary  during  a  test.  So,  for  strain  control, 
testing,  the  presence  of  transients  should  not  invalidate  the  resulting 
total  strain-life  data.  For  a  total  strain-based  damage  calculation,  two 
values  at  least  should  be  monitored.  They  are  the  strain  amplitude  and  the 
mean  stress.  Other  possible  candidates  were  the  stress  amplitude  or  the 
strain  energy:  these  candidates  do  not  conform  to  the  information  available 
from  typical  total  strain-life  curves  once  transients  are  considered.  For  a 
constant  amplitude  strain  control  test,  when  transients  are  present,  stress 
amplitude  and  strain  energy  varies  during  a  test.  The  variation  may  be  due 
to  hardening  or  varying  load  rates.  Therefore,  using  prevalent  total 
strain— life  data,  a  damage  formulation  may  be  based  on  total  strain 
amplitude  and  mean  stress  which  would  be  consistent.  If  this  damage 
formulation  is  found  to  be  satisfactory,  elaborate  testing  may  be  avoided  to 
account  for  hardening  and  loading  rate  effects  not  determined  by 
conventional  total  strain-life  data.  However,  when  an  actual  local  stress- 
strain  history  is  determined  numerically,  hardening  and  rate  affect  the 
computed  strain  amplitudes  and  mean  stresses  which  would  then  be  included  in 
any  damage  computations:  this  hardening  and  rate  effect  depends  on  the  type 
of  loading. 

The  damage  was  calculated  from  the  predetermined  local  stresses  and 
strains.  A  variable  amplitude  history  was  analyzed  to  compute  the  local 
stress-strain  response.  Rainflow  cycle  counting  was  then  done  on  the 
resulting  local  stress-strain  history.  Therefore,  the  damage  calculation  was 
done  by  post  processing  the  results  of  a  stress— strain  modeling  program. 

The  determination  and  counting  of  a  complete  strain  cycle,  cycle 
counting,  was  done  on  the  previously  computed  stress-strain  history.  Since 
local  elastic— plastic  behavior  with  transients  would  not  form  closed 
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hysteresis  loops,  a  choice  must  be  made  to  apply  cycle  counting  to  the  local 
stress  history  or  the  local  strain  history.  Because  of  transients,  the 
results  of  cycle  counting  the  stress  history  or  the  strain  history  were  not 
equivalent  as  is  the  case  of  the  stable  cyclic  analysis.  Since  a 
significant  amount  of  fatigue  life  data  were  available  based  on  strain 
control  testing,  to  be  consistent  with  these  data,  cycle  counting  was  done 
on  strain,  and  the  strain  amplitude  and  mean  stress  determined  as 
appropriate. 

Figure  9  is  a  representative  diagram  of  two  possible  cases  of  cycles 
determined  by  the  rainflow  cycle  counting  method.  In  this  example,  from  the 
prior  local  stress-strain  history  analysis,  only  the  values  of  the  stress 
and  strain  at  the  reversal  points  were  recorded.  The  use  of  reversal 
points  values  resulted  in  a  considerable  reduction  in  data  when  compared 
with  the  data  needed  to  record  the  complete  stress-strain  path.  Since  cycle 
counting  was  done  on  strain,  strain  amplitude  was  easily  determined.  From 
Figure  9,  the  strain  range  and  amplitude  for  the  representative  cycle  are 

,  A£  l"l~^2|  (6) 

o  —  2  “  2 

Note  that  point  3  was  chosen  in  the  history  so  that  by  definition  the  strain 
at  points  1  and  3  were  equal  due  to  cycle  counting  of  the  strain  history. 

The  stress  at  points  1  and  3  in  general  will  not  be  equal  due  to  cycle  and 
time  dependent  transients.  However,  the  stress  at  point  3  was  unknown  since 
it  is  not  a  reversal  point.  So,  the  mean  stress  may  be  determined  based  on 
the  values  of  the  stress  at  points  1  and  2  as 

+  (7) 

*^0  - - 2 
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Figure  9.  Representative  strain  counted  cycles . 
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A  more  elaborate  stress  averaging  may  be  done  such  as  time  integra¬ 
tion  of  the  stress  over  a  cycle.  Also,  integration  and  averaging  the  stress 
with  respect  to  the  strain  may  be  done.  These  more  elaborate  averages 
require  extra  computational  effort  and  numerical  data.  No  dramatic 
differences  in  these  methods  were  expected.  Also,  the  simpler  averaging 
method  should  predict  essential  changes  and  values  which  are  good  for  mean 
stress.  For  damage  determination,  more  elaborate  averaging  may  add 
complexity  without  improving  predictive  capabilities.  The  above  average  of 
Equation  7  was  convenient  and  suitable  when  compared  to  the  approximations 
already  introduced.  For  the  damage  analysis,  these  approximations  were  the 
viscoplasticity  model,  Neuber’s  rule,  rain-flow  cycle  counting,  strain  life 
curves.  Miner’s  rule,  and  the  modified  Morrow  mean  stress  parameter. 


Once  the  strain  amplitude  and  mean  stress  have  been  determined  by 
cycle  counting,  damage  was  assigned  to  a  cycle.  The  number  of  cycles  to 
initiation  was  calculated  from  the  two  following  equations: 

The  value,  N* ,  is  the  life  when  the  mean  stress  was  zero.  Equation  8  is  a 
common  form  of  the  strain-life  empirical  relationship.  The  above  strain- 
life  equation  excluded  the  affect  of  mean  stress.  The  value,  N,  was  the 
life  for  a  nonzero  mean  stress  of  Cq.  The  mean  stress  relationship  of 
Equation  9  is  a  common  form  of  the  modified  Morrow’s  empirical  relationship. 
The  values  a'p  E,  6,  e'p  and  c  are  material  constants.  Using  Equations  8  and 
9,  strain  amplitude  and  mean  stress  were  used  to  predict  fatigue  life. 


(8) 

(9) 


Once  damage  for  a  single  cycle  was  determined,  damage  was  summed 
according  to  Miner’s  rule  given  in  the  following  equation: 


block 


(10) 
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The  load  history  was  assumed  to  repeat  until  failure.  When  the  sum  was 
unity,  crack  initiation  to  a  finite  size  had  occurred. 

4.6  DETERMINING  STRAIN-LIFE  CONSTANTS 

The  strain— life  constants  for  the  two  materials  were  obtained  from 
companion  specimens  cycled  to  failure.  The  test  conditions  were  fully 
reversed  strain  control,  sinusoidal  waveform,  varying  strain  amplitudes  and 
frequencies,  and  one  strain  amplitude  and  frequency  per  specimen.  For  the 
Ti-6A1-4V  titanium  alloy,  the  strain  life  constants  reported  by  Khosrovaneh 
in  Reference  [48]  are  summarized  here  in  Table  4.  The  strain— life  curve  for 
the  Ti— 6A1— 4V  titanium  is  given  in  Figure  10:  this  figure  was  adapted  with 
changes  from  Reference  [48].  The  results  of  testing  7475— T651  A1  are  also 
included  in  Table  4.  A  plot  of  the  strain  life  curve  for  7475-T651  aluminum 
is  given  in  Figure  11. 

The  procedure  to  obtain  the  constants  is  briefly  described. 

Starting  with  Equation  8,  we  identified  the  elastic  and  plastic  strain  terms 
as 

~  ^ae  ^ap 
cr' 

eap  =  ^'fi^N*r  (12 


The  above  expressions  for  Equations  11  and  12  are  both  power  law 
relationships.  The  constant  E  was  the  customary  value  for  the  modulus  of 
elasticity.  To  obtain  the  other  constants,  the  logarithms  of  the  data  were 
fitted  by  linear  least  squares  regression.  Linear  regression  was  valid 
because,  on  a  log— log  graph,  a  plot  .of  either  Equation  11  or  12  would  form  a- 
straight  line.  So,  for  the  fits,  the  data  for  each  specimen  was  tabulated 
as  strain  amplitude,  stress  amplitude,  elastic  strain  amplitude,  plastic 
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strain  amplitude,  and  fully  reversed  life  to  failure.  All  the  amplitudes 
were  computed  close  to  the  half-life  of  the  specimen. 
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TABLE  4.  Strain  Life  Constants. 


Symbols,  Units 

Ti-6Al-4Vl 

7475-T651  AL 

ksi 

16500 

10300 

'/ 

6.22 

2.43 

c 

-1.01 

-1.061 

(7^,  ksi 

220.9 

163.8 

6 

-0.0763 

-0.1100 

^Values  from  Reference  [48],  same  plate  of 
material  used. 
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Figure  10.  Strain  Life  Curve  Ti— 6A1— 4V . 


48 


NAWCADWAR  95033-4.3 


Figure  11.  Strain  Life  Curve  7475— T651  A1 . 
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5.0  STATIC  RELAXATION  STUDIES 

5.1  INTRODUCTION 

Long  term  relaxation  tests  were  performed  on  both  the  Ti-6A1-4V 
titanium  and  the  7475-T651  aluminum  alloys.  The  specimens  were  loaded  at  a 

moderate  rate  in  displacement  control.  Each  specimen  was  loaded  to  a 

«  •1 
different  displacement  and  held.  Then,  the  drop  in  the  load  was  monitored 

over  time.  The  details  are  to  be  further  described. 

5.2  APPARATUS 

For  applying  and  maintaining  the  load,  the  apparatus  included 
uniaxial  static  specimens,  two  loading  grips,  a  ^  inch  gage  length 
extensometer ,  two  extensometer  attachment  bars,  several  relaxation  frames, 
several  hard  steel  dowels,  and  nuts  which  had  a  ball  surface  with  mating 
socket  washers.  Also,  a  20  kip  MTS  servo  hydraulic  testing  machine  was  used 
for  loading.  For  monitoring  the  load,  strain  gage  instrumentation  and  x—ray 
stress  measurements  were  used.  Figure  12  shows  the  static  specimen,  whereas 
Figure  13  is  a  diagram  of  the  relaxation  frame. 

Figure  12  is  an  engineering  drawing  of  the  static  specimen.  The 
thinnest  region  was  the  test/gage  section.  The  relaxation  was  assumed  to  be 
confined  to  the  gage  section.  The  gage  section  was  machined  with  flats 
which  provided  an  area  for  x-ray  stress  measurements.  Next  to  the  gage 
section,  two  opposing  parallel  flats  where  machined;  in  this  area  two  strain 
gages  were  mounted.  The  strain  gages  formed  a  load  cell  for  monitoring 
load. 
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Notes : 

1.  Stamp  specimen  number  on  one  end  before  reducing  center  section. 

2.  In  the  final  stages  of  machining  of  the  reduced  section,  remove 

material  in  small  amounts  until  0.005  in.  minimum  of  excess  remains. 

3.  Remove  the  next  0.004  in.  by  grinding  at  a  rate  of  no  more  than  0.002 
in./pass . 

4.  Remove  the  final  0.001  in.  minimum  by  polishing  longitudinally  to  a  8 

pin.  surface  roughness.  The  polishing  should  remove  material  cleanly  without 

smearing. 

5.  After  polishing,  all  remaining  marks  should  be  longitudinal..  No 
lateral  machining  should  be  seen  at  20  x  magnification. 

6.  Center  section  removed  0.002  min  of  surface  by  electropolishing. 

7.  Dimensions  shown  are  inches. 

Figure  12.  Static  Specimens. 
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SLOT  DETAIL 

Notes ; 

1.  Material  1018  Plain  carbon  steel  or  equivalent.  At  least  60  ksi  yield 
strength. 

2.  Dimensions  shown  are  inches. 

Figure  13.  Relaxation  Frame . 
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The  flats  for  the  two  strain  gages  were  not  essential,  but  they  were  made 
for  simpler  strain  gage  placement.  The  two  strain  gages  were  placed  to 
exclude  specimen  bending  from  the  load  cell  measurements.  Also,  for  two 
strain  gages,  the  sensitivity  of  the  load  cell  was  increased.  For  the 
specimen,  two  other  features  of  importance  were  the  threads  and  the  hole. 

The  threads  were  provided  for  nuts.  Nuts  will  be  used  to  maintain  the  load 
for  an  extended  period.  The  hole  was  provided  for  a  hardened  steel  dowel. 
The  steel  dowel  mated  to  a  machined  slot  in  the  relaxation  frame.  The  steel 
dowel  and  slot  aligned  the  specimen  for  x-ray  stress  measurements. 

The  combination  of  loading  grips,  attachment  bars,  extensometer ,  and 
MTS  testing  machine  provided  a  means  for  controlling  the  displacement  rate 
and  level.  The  extensometer  provided  the  control  signal  for  the  servo 
hydraulic  testing  machine.  Then,  an  attachment  bar  was  mounted  to  the 
loading  grip  to  form  a  rigid  unit,  and  the  extensometer  was  mounted  to  the 
attachment  bars.  The  axial  separation  of  the  grips,  to  which  the  specimen 
was  threaded,  was  monitored  with  the  extensometer  to  control  the  loading  of 
the  specimen. 

The  relaxation  frame,  two  nuts,  and  2  washers  provided  a  means  of 
maintaining  a  fixed  displacement  for  an  extended  period  of  time.  Since  a 
relaxation  test  was  performed,  the  relaxation  frame  ideally  should  be 
perfectly  rigid.  The  relaxation  frame  was  sized  to  approximate  this  rigid 
condition.  However,  to  a  degree,  there  was  evidence  that  possibly. this 
condition  was  not  met.  Possible  thermal  expansion  and  contraction  of  the 
frame  may  have  been  evident  in  the  results.  The  relaxation  frame  was  made 
from  a  mild  steel  whose  coefficient  of  thermal  expansion  was  different  for 
the  7475-T651  aluminum.  Also,  the  mild  steel  and  the  Ti-6A1-4V  titanium 
alloy  have  slightly  differing  coefficients  of  thermal  expansion.  The  axis 
of  the  hole  and  the  four  sides  of  the  frame  were  machined  so  that  they  are 
all  parallel.  The  machining  was  done  so  the  four  sides  could  be  used  for 
alignment  during  x-ray  stress  measurement.  When  mated  with  a  steel  dowel 
mounted  on  the  specimen,  the  slot  of  the  frame  further  ensured  that  the 
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specimen  test  section  was  properly  positioned.  In  particular,  the  flat 
surfaces  of  the  test  section  would  be  parallel  to  the  front  and  back 
surfaces  formed  by  the  broad  dimensions  of  the  frame.  The  frame  is  shown  in 
Figure  13.  Nuts  and  washers  were  placed  on  each  end  of  the  specimen.  Their 
mating  surfaces  formed  a  ball  and  socket  arrangement.  Upon  tightening  the 
nuts  and  washers  against  the  frame,  the  ball  and  socket  surfaces  reduced  the 
possibility  of  loading  a  specimen  with  a  bending  moment. 

The  final  arrangement  of  a  specimen  ready  for  loading  consisted  of  a 
specimen  placed  in  a  frame  with  washers  put  on  the  specimen  ends  next  to  the 
frame.  Next,. nuts  were  threaded  on  each  end.  Finally,  the  loading  grips 
were  tihreaded  on  the  ends  of  the  specimen. 

Strain  gages,  strain  gage  instrumentation,  and  x-ray  stress 
measuring  equipment  were  used.  The  strain  gages  were  mounted  next  to  the 
gage  section  to  determine  load  in  the  machined  region  provided.  The  strain 
gages  enabled  the  computation  of  the  stress  in  the  thin  gage  section.  On 
each  specimen,  two  strain  gages  were  placed  with  one  strain  gage  on  each  of 
the  two  prepared  parallel  surfaces.  The  strain  measuring  axis  was  closely 
placed  along  the  axis  of  the  specimen.  The  strain -gages  were  connected  to  a 
strain  indicator  in  a  ^  bridge  configuration  with  the  bridge  having  4 
branches.  The  2  strain  gages  were  wired  in  series  to  form  one  branch,  and  a 
temperature  compensating  gage  was  placed  in  a  second  separate  branch  of  the 
bridge.  The  common  temperature  compensation  gage  was  mounted  to  a  block  of 
the  same  material  as  the  specimen.  This  i  bridge  arrangement  provided  for 
both  temperature  and  bending  load  compensation.  The  strain  indicator 
provided  both  digital  display  and  an  analog  signal.  The  x-ray  stress 
analyzer  was  used  to  make  x-ray  stress  measurements  directly  in  the  specimen 
gage  section.  For  x-ray  stress  measurements,  no  special  procedures  were 
required  besides  proper  alignment  of  the  specimen.  The  x— ray  stress 
alignment  and  testing  procedures  are  given  in  Reference  [35]. 
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5.3  TESTING  PROCEDURE  AND’ CONDITIONS 

The  procedure  for  loading  the  specimens  is  outlined  in  the  following 
discussion.  The  frame,  specimen,  dowel,  washers,  nuts,  grips,  and  extension 
bars  combination  were  placed  in  a  20  kip  MTS  servo  hydraulic  testing  machine 
for  loading.  The  clip  gage  was  then  mounted  to  the  extension  bars  to 
monitor  displacement.  Ne.xt,  the  strain  gages,  strain  indicator,  plotter, 
and  strip  chart  recorder  were  connected  as  appropriate.  The  MTS  testing 
machine  was  then  placed  in  strain  control.  The  specimen  was  then  ramped  at 
a  moderate  rate  of  0.005  inch  per  second  to  achieve  the  proper  displacement. 
The  displacement  varied  for  each  specimen  from  0.0018  inch  to  0.010  inch. 
Next,  while  still  in  the  MTS  machine,  the  loaded  specimen  was  monitored  for 
a  period  of  time  from  at  least  one  hour  to  one  day;  at  this  point  the  load 
drop  became  slight  over  a  time  scale  of  several  minutes.  At  this  time,  the 
nuts  were  tightened  to  carry  the  load.  The  MTS  testing  machine  was 
simultaneously  unloaded.  The  specimen  strain  gages  were  used  for 
coordination  so  that  the  specimen  load  remained  constant.  The  specimen  was 
then  removed  from  the  testing  machine.  Finally,  the  load  was  monitored  with 
both  strain  gages  and  x— ray  stress  analysis  for  several  months. 

The  following  test  conditions  were  present.  The  testing  was  done  at 
ambient  room  temperature.  .The  ramp  rate  was  chosen  as  a  compromise  between 
an  ideal  infinite  ramp  and  preventing  overshoot  due  to  testing  machine 
response  characteristics.  Finally,  using  strain  control  to  monitor  and 
control  the  extensometer  gave  a  more  direct  indication  of  specimen 
displacement  than  using  the  testing  machine’s  actuator  stroke  indication. 

5.4  RESULTS 

The  testing  procedure  exhibited  one  major  difficulty  that  will  be 
discussed.  Also,  the  relaxation  test  data  were  compiled  into  graphs  for 
further  study.  Finally,  slight  oscillations  in  the  relaxation  data  were 
observed. 
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Originally j  the  nuts  were  to  be  firmly  tightened  allowing  the 
testing  machine  load  to  be  removed.  After  tightening  the  nuts  and  removing 
the  testing  machine  loadj  only  a  slight  drop  in  the  specimen  load  was 
expected.  However,  this  procedure  produced  a  greater  drop  off  in  load. 
Therefore,  to  maintain  the  specimen  load,  alternate  nut  tightening  and 
testing,  machine  unloading  was  done.  As  the  nuts  progressively  carried  more 
load,  the  specimen  would  tend  to  twist  due  to  frictional  forces  between  the 
threads  of  the  nuts  and  the  specimen.  Provisions  to  prevent  twisting  or 
another  load  transferring  method  such  as  wedges  should  be  utilized. 
Otherwise,  the  test  method  was  adequate.  However,  completely  transferring 
the  load  to  the  nuts  was  not  done,  and  the  resulting  drop  in  load  was 
accepted.  Overloading  the^ specimen  followed  by  tightening  the  nuts  and 
removing  the  testing  machine  load  was  not  done  to  try  and  obtain  the 
original  load  level.  Overloading  would  have  required  several  trial 
repetitions  of  loading  and  tightening  until  complete  removal  of  the  testing 
machine  load  resulted  with  the  specimen  at  the  original  load  before 
tightening.  Overloading  would  give  a  different  load  history  from  the 
desired  ramp  followed  by  an  indefinite  hold.  Especially,  overloading  would 
cause  changes  in  the  amount  of  plastic  deformation  from  its  original  value. 
The  plastic  deformation  due  to  overloading  could  then  alter  the  relaxation 
response  of  the  specimen.  However,  tightening  the  nuts  as  much  as  possible 
and  accepting  a  load  drop  would  produce  elastic  unloading.  The  elastic 
unloading  was  considered  more  desirable  since  time  dependent  behavior  in 
metal  was  shown  to  be  dependent  on  the  presence  of  plastic  deformation. 
However,  the  amount  of  elastic  deformation  available  to  be  transformed  into 
time  dependent  plastic  deformation  was  reduced.  Therefore,  by  accepting  a 
drop  in  load,  the  time  dependent  relaxation  may  be  altered  the  least. 

The  relaxation  data  for  the  7475-T651  aluminum  are  given  in  .Figures 
14  and  15.  The  relaxation  data  for  the  Ti-6A1-4V  titanium  are  given  in 
Figures  16  and  17.  The  data  are  plotted  on  various  scales  where  the  short 
term  time  scales  are  used  to  show  the  initial  transients  at  the  beginning  of 
the  test.  Also,  scales  in  time  that  cover  the  complete  test  are  used  to 
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display  the  entire  test  data.  The  logarithmic  scale  visually  emphasizes 
equally  the  variation  in  time  of  the  stress.  The  strain  gage  data  at  the 
beginning  of  the  tests  had  to  be  combined  with  x— ray  stress  data  at  the  end 
of  the  test.  Adjustments  had  to  be  made  for  mismatch  in  the  strain  gage 
data  and  the  x-^ray  stress  data.  The  adjustment  involved,  for  simultaneous 
strain  gage  and  x~ray  measurements,  the  addition  of  a  constant  value  to  the 
X— ray  stress  value  to  obtain  the  same  stress  as  that  determined  by  the 
specimen’s  strain  gages.  The  constant  value  was  added  to  all  subsequent  x^ 
ray  stress  values.  The  addition  of  a  constant  was  required  due  to  net 
section  stress  differing  from  x— ray  stress  values  after  plastic  deformation 
has  occurred.  However,  on  elastic  unloading,  the  ‘^change”  in  both  stress 
values  are  equal.  Only  the  magnitude  of  the  the  x— ray  stress  data  is  less. 
The  difference  in  net'  section  and  x-ray  stress  values  after  yield  is 
discussed  later.  Adding  a  constant  value  of  the  stress  to  the  x— ray  stress 
data  allowed  the  splicing  of  the  two  data  sets  together  to  form  one 
relaxation  curve  for  each  specimen  tested. 

Oscillations  were  also  observed  in  the  relaxation  data.  The 
oscillations  could  be  accounted  for  due  to  the  discrete  quantization  of  the 
3  digit  display  and  was  about  ^  ksi.  However,  the  variation  may  be 
attributed  to  the  thermal  dimension  changes  of  the  relaxation  frame  since 
all  specimens  approximately  followed  the  same  time  history  for  the 
oscillations. 

Examination  of  the  semi log  plots  in  Figures  15  and  17  show  a  step 
corresponding  to  a  drop  in  the  stress.  The  step  occurred  when  the  specimen 
was  removed  from  the  servo— hydraulic  test' ng  machine  and  the  nuts  tightened 
to  maintain  the  load  as  discussed  previously. 
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Figure  14.  Static  relaxation  7475-T651 
for  test  duration. 
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Figure  15.  Static  relaxation  7475-T651 
initial  transients . 
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Figure  16.  Static  relaxation  Ti-6A1-4V 
for  test  duration. 
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Figure  17.  Static  relaxation  Ti-6A1-4V 
initial  transients . 
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6.0  X-RAY  STUDIES 


6.1  EXPERIMENTAL  APPARATUS 

The  TEC  stress  analyzer  was  used  in  this  study  to  determine  the 
residual  stress.  The  d-spacing  versus  sin^rp  method,  given  by  Equation  1, 

used  in  the  TEC  stress  analysis.  The  machine  parameters  for  the  x-ray 

•• 

measurements  are  given  in  Tables  5  and  6. 


was 
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TABLE  5.  X-ray  Equipment  Parameters 
TEC  x-ray  stress  analyzer 


Item 

Material' 

Ti-6A1-4V 

7475-T651  A1 

Radiation 

Cu 

Cu 

A,  % 

1.54178 

1.54178 

(hkl)  plane(s) 

(213) 

(511)  and(333) 

20  j  degrees 

142 

160 

Voltage,  kV 

37 ,  45 

37 ,  45 

Amperage ,  mA 

1.85 

1.85 

Rectangular^ 

Slit  Size,  mm 

0.5  by  5 

1  by  5 

2  by  5 

0.5  by  5 

1  by  5 

2  by  5 

Measurement  Time 

(per  stress  value),  min. 

20  to  60 

5  to  60 

^5mm  dimension  parallel  to  specimen  thickness. 


TABLE  6.  X-ray  Slit  Sizes  for 

Notched  and  Unnotched  Specimens 


TEC  x-ray  stress  analyzer 


Notch  Radius 

Slit  Size^’' 

2,3 

inches 

mm 

1 

8 

0.5 

by 

5 

1 

0.5 

by 

5 

4 

1 

by 

5 

oo 

0.5 

by 

5 

(i.e.  unnotched) 

1 

by 

5 

2 

by 

5 

^5inm  dimension  parallel  to  specimen  thickness. 
^Largest  slit  area  used  to  reduce  measurement  time. 
^Maximum  slit  size  is  limited  by  errors  due  to  stress 
gradients. 
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6.2  X-RAY  ELASTIC  CONSTANT  DETERMINATION 

The  X’-ray  work  required  the  determination  ot  the  x-^ray  elastic 
constant,  which  is  important  especially  since  an  appropriate  value  for  the 
aluminum  measurements  done  in  this  study  was  not  tabulated  in  the 
literature.  Graphical  comparisons  of  x-ray  stress  and  net  section  nominal 
stress  were  made.  The  specimens  were  of  uniform  cross  section.  In  the 
graphical  comparison,  a  discrepancy  during  yielding  is  discussed  elsewhere. 
The  x-ray  results  compared  favorably  with  the  net  section  stress  for  the 
titanium  alloy  in  the  elastic  loading  range.  The  tabulated  stress  analyzer 
configuration  and  material  constant  was  used  in  this  case.  The  results  for 
the  aluminum  alloy  show  consistently  high  x-ray  stress  values  compared  to  the 
net  section  average  stresses  during  elastic  loading.  This  time  a 
configuration  of  the  stress  analyzer  was  utilized  that  did  not  have  a 
tabulated  x-ray  elastic  constant.  Therefore,  a  typical  value  was  chosen  from 
the  many  available  for  aluminum,  and  this  value  will  be  adjusted  to  correct 
the  x-ray  results.  The  x-ray  elastic  constants,  once  determined,  will  allow 
correct  x-ray  measurements. 

X-ray  measurements  have  been  made  on  specimens  of  uniform  cross 
section  at  various  levels  of  known  static  load.  Graphs  were  then  made  of 
resulting  x-ray  stress  values  versus  P/A.  The  resulting  slopes  could  then  be 
compared . 

For  the  Ti-6A1-4V  titanium  alloy,  the  x-ray  values  were  accepted  due 
to  the  good  fit  to  the  data  as  seen  in  Figures  18  and  19.  Considering  the 
error  bars,  the  data  were  on  the  expected  line.  The  error  bars  were  the 
measurement  errors  reported  by  the  TEC  analyzer.  Therefore,  the  value  of 
P/A  was  within  the  region  of  error  about  the  x-ray  stress  value.  The 
agreement  of  P/A  and  x-ray  stress  was  valid  up  to  yielding.  TEC’s  tabulated 
value  X— ray  elastic  constant  for  the  titanium  alloy  was  used. 

For  the  aluminum  7475-T651  Al,  the  configuration  of  the  stress 
analyzer  was  not  one  that  had  a  tabulated  x-ray  constant  by  TEC.  Therefore, 
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a  temporary  value  was  selected.  The  resulting  plot  of  x-ray  stress  versus 
P/A  indicated  a  deviation  in  the  x-ray  stress  from  P/A  as  seen  in  Figure  20. 
Figure  21  is  used  to  discuss  the  deviation  and  a  procedure  to  correct  the  x— 
ray  elastic  constant.  Also,  for  measurement  of  stresses  by  x— ray  with  an 
inappropriate  x— ray  elastic  constant,  a  discussion  is  given  for  correcting 
the  x-ray  stresses  recorded  without  remeasuring. 

A  value  had  to  be  found  for  the  x— ray  elastic  constant,  ?  which 

resulted  in  agreement  of  <^x-ray  net-section  stress,  data  for 

aluminum.  As  seen  in  Figure  21,  the  variation  of  plotted  x— ray  stress, 

versus  net  uniform  section  stress,  P/A,  was  expected  to  be  linear. 
The  linearity  is  seen  to  be  valid  in  Figure  20  for  increments  of  elastic 
loading.  Changes  in  P/A  should  produce  equal  changes  in  o'x—ray  that  the 
slope  of  the  line,  in  Figure  21  should  be  equal  to  one,  =  The 

values  for  CTx-ray  agree  due  to  the  presence  of  a  residual 

stress  measured  by  x— ray  and  not  included  in  the  calculated  PJA  value.  In 
Figure  20,  the  dashed  line  indicates  a  slope  of  one.  The  solid  lines  show 
the  trend  of  the  data  during  elastic  loading  and  unloading.  Comparing  the 
solid  and  dashed  lines,  a  lack  of  agreement  existed  between  <^x—ray  P/A. 

A  procedure  for  correcting  the  x-ray  elastic  constant  to  improve  agreement 
is  discussed  in  the  following.  Also,  a  correction  of  previously  recorded  x- 
ray  stress  is  described. 


65 


0,  X>r«y  Stress*  ksl 


NAWCADWAR  95033-4.3 


S  -  P/A,  Applied  Stress,  ksl 


The  dashed  line  corresponds  to  perfect  agreement  with  the 
applied  stress. 


Figure  18.  Agreement  of  x-ray  with  P/A  for 
unnotched  Ti-6A1-4V .  specimen 
T1S06. 
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Figure  19.  Agreement  of  x-ray  with  P/A  for 
unnotched  Ti-6A1-4V.  specimen 
T1S02. 
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Figure  20.  Agreement  of  x-rav  stress  with 

P/A  for  unnotched  7475-T651  A1 . 
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P/a,  Net  Section  Stress 


Figure  21.  Illustration  of  x-ray  stress  versus  P I 
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Returning  to  Figure  21,  the  assumption  was  made  that  the  linear 
relationship  was  valid  but  the  slope  was  not  equal  to  one.  Then,  the 
following  equation  was  written. 

o^x—ray  —  ^uci^m  ^r) 
where 


^x-ray  —uncorrected  x-ray  stress 

-slope  uncorrected  x-ray  stress  plot 
-applied  mechanical  stress 
(Tj,  -preexisting  correct  residual  stress 

then 


^x—ray  ^uc^m  ^uc'> 


if 


Physically  was  the  expected  x-ray  measured  uncorrected  residual  stress. 
Continuing  to  rearrange  terms 


““  x-ray 


^uc  _  1  __ 

^uc  x-ray  ^r 


(13) 


An  expression  containing  the  correct  x-ray  value  may  be  written  while 
requiring  the  slope  to  be  one  by  inspection. 


^  _  „corr 

^ x-ray  ' 


(14) 


^^ray  desired  correct  x-ray  value.  Comparing  Equations  13  and  14 

the  relationship  for  the  correct  stress  may  be  written. 


,corr  _  1 

x-ray  ”  rriy^^ x—ray 


(15) 


Now,  it  may  be  determined  how  to  correct  the  x— ray  elastic  constant.  First, 
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for  the  biaxial  stress  case,  the  d-spacing  versus  sin^V’  relationship,  which 
was  assumed  to  be  valid,  was  written  and  manipulated.  References  [35,  36, 
38]  should  be  consulted  for  information  concerning  when  the  biaxial  stress 
case  is  appropriate,  and  what  difficulties  make  it  invalid. 

The  equation  was  the  following  expression: 


Substitution  of  the  corrected  stress  value  was  done  by  Equation  15 


—  '^n 


(1  +  t^), 
E 


m^c  4-7ay 


(16) 


Now,  the  relationship  was  rewritten  by  inspection  assuming  the  correct  value 
of  the  x-ray  elastic  constant  was  included. 


—  ^n\ 


•fiorr 


E 


corr 
"x— ray 


X  sin' 


(17) 


Finally,  the  correction  was  determined  by  inspection  to  be 

+  rn^cil  +  ‘') 

E  ~  E 


(18) 


Equations  15  and  18  were  used  to  correct  the  x-ray  stress  value  and  the  x- 
ray  elastic  constant,  respectively - 


The  procedure  tor  determining  the  correction  slope,  the 

p  -COW 

corrected  x— ray  elastic  constant,  ^ ^  ?  Is  discussed  for  the  data  of 

Figure  20.  A  summary  of  the  numerical  results  is  given  in  Table  7.  A 
separate  least  squares  linear  regression  was  done  for  the  elastic  loading 
and  unloading  data.  The  loading  and  unloading  data  are  identified  by 


differing  symbols  in  Figure  20  along  with  values  which  were  excluded  from 
the  linear  fits.  Reasons  for  elimination  of  data  from  the  fits  were  noted 
deviation  from  linearity  due  to  plasticity  and/or  the  error  bars  indicate 
that  the  data  point  was  not  on  the  computed  line.  The.  error  bars  are 
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indicated  by  the  vertical  lines  for  each  data  point.  They  were  reported  by 
the  X— ray  analyzer  software  as  an  indication  of  the  accuracy  of  the  reported 
X— ray  stress  value. 

From  the  least  squares  linear  regressions,  the  slope,  standard 
deviation  for  the  scatter  of  the  data  about  the  line,  and  standard  deviation 
of  the  slope  were  computed  according  to  Reference  [49].  From  Table  7  and 
Figure  20,  the  reported  standard  deviations,  and  error  bars  were 
significantly  smaller  for  the  loading  data.  The  values  of  slope,  along 

®  r  -icorr 

with  the  x-ray  elastic  constant,  l^-^J  >  loading  were  chosen  for  this 

reason,  and  also  due  to  the  greater  number  of  data  points  for  loading. 

Using  three  times  the  standard  deviation  for  the  line  fit  slope,  the 

accuracy  of  the  chosen  values  were  three  decimal  places.  The  error  bars  for 

the  fitted  loading  data  varied  from  a  minimum  of  ±1.3  to  a  maximum  of  ±  1.9 

ksi.  These  values  were  comparable  to  three  to  five  times  the  scatter 

standard  deviation  of  1.19  to  1.98  ksi,  respectively,  for  the  fitted  loading 

line.  As  a  further  comment,  for  unloading,  the  error  bars  for  the  fitted 

data  varied  from  a  minimum  of  ±2.4  to  a  maximum  of  ±3.7  ksi.  These  values 

were  comparable  to  the  one  to  three  times  the  scatter  standard  deviation  of 

1.63  to  4.88  ksi,  respectively,  for  the  fitted  unloading  line.  Finally,  the 

1.74  percent  relative  error  between  the  slopes  for  loading  and  unloading 

indicates  there  was  good  agreement  between  the  slopes,  even  though  there 

were  a  limited  number  of  unloading  data  points  with  larger  error  bars.  The 

good  agreements  of  the  fits  would  seem  to  support  the  use  of  the  values  of 

during  loading  for  determining  all  elastic  x— ray  stress, 

x-ray ^  values. 

6.3  POLE  FIGURES  Ti-6A1-4V  AND  7475-T651  A1 

Texture  was  examined  since  the  d— spacing  versus  sin  xj)  relationship 
assumes  the  texture  is  uniform  with  no  preferred  orientation  of  the  grains 
being  measured.  The  textures  of  the  wrought  Ti-“6A1-4V  and  7475-T651  A1 
alloy  plates  chosen  was  measured  by  x-ray  diffraction. 


m. 


uc 


and 


1. 
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TABLE  7.  X-ray  Elastic  Constant  Correction  7475-T651  A1 


Uncorrected 

(l  +  t^) 

E 

(psi“^) 

1.255  X 10“'^ 

Loading 

Unloading 

^UC 

(1.146349)^ 

1.166277 

Standard 
Deviation 
Scatter 
Fitted  Line 
(ksi) 

0.396435 

1.62723 

Standard 
Deviation 
Slope,  '^uc 

0.006633 

0.30123 

r.  -rcorr 

1  +  i^ 

L  E  J 

(psi“^) 

(1.4387  X  10"'' 

1.46368  X  10"'^ 

Percent 

Relative 

Error 

(1.74)3 

^  Value  chosen  as  the  correction  slope. 

2  Value  chosen  for  the  corrected  x-ray 
elastic  constant, 

^  Loading  value  of  chosen  as  the 

reference  value  and  compared  to  the 
unloading  value. 
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Lambda  Research  Incorporated, .  Ref erence  [50],  performed  the  actual  pole 
figure  measurements.  Figure  22  displays  the  x— ray  sample  geometry  in  the 
pole  figure  coordinate  system.  However,  pole  figure  measurements  were  not 
made  directly  on  the  x— ray  specimen,  but  measurements  were  performed  on  a 
representative  rectangular  slab  machined  from  the  same  plate  as  the  x—ray 
specimens.  Final  pole  figure  sample  preparation  was  done  by  removing  0.004 
inches  of  the  surface  by  electropolishing  to  diminish  texture  changes  due  to 
machining. 

The  geometry  of  the  sample  coincided  with  the  pole  figures  as 
follows:  ^^^the  rolling  direction,  RD,  is  along  the  specimen  axis,  the 

plane  of  the  pole  figure  and  the  edge  surface  of  the  specimen  were  parallel 
lying  in  the  plane  formed  by  the  transverse  direction,  TD,  and  rolling 
direction  axes,  ^^^the  normal  direction,  ND,  was  perpendicular  to  the  edge  of 
the  specimen,  ^"^^the  pole  figure  covered  psi  tilts  of  up  to  70'’  from  the 
normal  direction  and  a  360'’  revolution  about  the  normal  direction,  ^  ^in  the 
pole  figure,  x~ray  stress  measurements  cover  psi  tilts  of  up  to  30'’  ib'’  from 
the  normal  direction  lying  along  the  line  formed  by  the  rolling  direction. 

Figure  23  gives  the  details  of  the  coordinate  system  in  the  plane  of 
the  pole  figure,  and  the  amount  of  the  psi  tilt  was  given  by  concentric 
circles.  The  direction  to  points  in  the  plane  of  the  pole  figure  was  given 
by  radial  lines  from  the  center.  The  dashed  circles  indicated  the  region 
covered  by  the  x-ray  stress  analyzer,  while  the  dashed  line  along  the 
rolling  direction  indicated  the  path  taken  by  the  x-ray  stress  analyzer 
during  stress  measurements  in  the  pole  figure.  All  angles  were  in  degrees. 

The  following  was  done  to  collect  the  pole  figure  data  in  the 
procedure  done  by  Lambda[50].  The  7475— T651  A1  sample  was  oscillated  in  the 
plane  of  the  pole  figure.  Oscillation  was  not  done  on  the  Ti—6A1—4V.  sample 
due  to  inappropriate  sample  size.  The  intensity  data  were  taken  at.  0.16 
intervals  in  psi . 
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Also,  intensity  was  measured  in  12°  intervals,  in  the  plane  of  the 
pole  figure,  revolving  about  the  normal  direction.  The  recorded  intensity 
data  were  smoothed  by  linear  interpolation  after  correcting  for  background 
intensity. 

Each  measurement  was  plotted  in  two  formats  to  produce  pole  figures. 
The  times-random  format  scaled  the  diffracted  intensities  so  that 
intensities  above  the  average,  integrated  over  the  central  70  ,  were 
accentuated,  and  intensities  below  the  average  were  attenuated.  The 
accentuation  and  attenuation  above  and  below  the  average  was  accomplished  by 
expanding  and  compressing  the  plotting  scale,  respectively.  The  times- 
random  format  enables  easier  identification  of  texture  and  preferred 
orientation  variation  from  random  since  comparisons  are  made  against  the 
integrated  average  intensity.  The  second  format  was  a  normalized  format 
where  the  diffracted  intensities  were  divided  by  the  maximum  intensity.  The 
normalized  format  displayed  the  actual  detailed  variation  in  the  intensity 
encountered  during  x-ray  measurements. 

Figures  24,  25,  26,  27,  28,  and  29  give  the  texture  of  the  aluminum 
alloy.  Figure  24,  in  the  times— random  format  indicated  a  strong  texture  for 
the  (111)  family  of  planes.  Figure  24  shows  reflections  centered  on  the 
center  of  the  pole  figure,  and  at  the  edges  of  the  pole  figure  on  the 
rolling  direction  and  at  approximately  30°  above  and  below  the  transverse 
direction.  A  cube  positioned  looking  down  one  corner  would  give  reflections 
in  the  islands  of  intensity  in  Figure  24.  Figure  28  shows  a  cube  positioned 
on  its  corner  and  the  points  corresponding  to  the  reflections  from  this 
single  ideal  cube.  The  cube  was  also  placed  so  that  a  diagonal  plane  of  the 
cube  contains  the  rolling  direction,  and  two  corners  of  the  cube  are  on  the 
normal  direction.  The  center  of  the  (111)  reflection  is  located  at  the 
center  of  the  “{111} , {333}”  symbol.  The  given  cube  orientation  and  a  180° 
rotation  of  it  about  the  normal  direction  may  establish  the  major  features 
of  the  aluminum  alloy’s  (111)  pole  figure.  Also  in  Figure  28  and  its  180 
rotation,  the  ideal  reflections  for  (311)  are  located  in  the  islands  of 
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intensity  given  in  Figures  26  and  27. 

Figure  29  displays  the  intensity  variation  during  x-ray  stress 
measurements  for  the  aluminum  alloy  where  diffraction  measurements  were  made 
from  the  (511)  and  (333)  planes.  In  Figure  29  over  a  range  of  psi  tilt  of 
up  to  around  40° ,  there  was  a  peak  in  intensity  near  0  and  40  ,  and  a  dip 
to  minimal  intensity  about  20°  to  30°  in  psi.  Turning  to  the  ideal 
reflections  given  in  Figure  28  along  the  rolling  direction,  the  peak  near  0° 
in  psi  corresponded  to  the  (333)  reflection  while  the  peaks  near  40°  were  in 
the  region  of  the  (511)  reflection.  In  the  region  between  0°  and  40°  of  psi 
tilt  along  the  rolling  direction,  there  were  no  reflections  for  (333)  or 
(511)  where  in  Figure  29  the  intensity  was  minimal.  The  island  of  intensity 
along  the  rolling  direction  of  Figure  25  located  the  (333)  reflection  about 
0°  psi  since  the  (111)  and  (333)  reflections  were  coincident.  Figure  25 
also  displays  the  absence  of  intensity  along  the  rolling  direction  away  from 
0°  psi  for  the  (333)  reflection  when  measuring  x-ray  stress.  From  Figures 
25,  28,  and  29,  the  (333)  or  the  (511)  planes  were  being  sampled  depending 
on  the  psi  tilt  which  could  affect  the  results  of  x-ray  stress  measurements. 

Figures  30,  31,  32,  33,  34,  and  35, give  the  texture  of  the  titanium 
alloy  for  the  hep  crystal.  Figure  30,  in  the  times— random  format  indicates 
a  strong  texture  for  the  (O002)  family  of  planes.  Figure  30  again  shows 
reflections  centered  on  the  center  of  the  pole  figure,  and  at  the  edges  of 
the  pole  figure  at  approximately  25°  and  35  above  and  below  the  transverse 
direction.  The  (0002)  reflections  were  from  planes  parallel  to  the  basal 
plane  of  the  hexagonal  crystal  for  titanium.  The  island  of  intensity 
centered  in  the  pole  figure  indicated  that  the  base  of  the  hexagon  and, 
therefore,  the  basal  plane  was  parallel  to  the  plane  of  the  pole  figure  for 
one  orientation  of  the  hexagon.  This  orientation  was  used  in  developing  the 
pole  figure  of  Figure  34  for  a  single  ideal  titanium  crystal  showing  a  top 
view  of  the  basal  plane.  One  of  the  orientations  for  titanium  was  to  then 
look  down  the  axis  of  the  hexagon  from  the  top. 


78 


C\  CO  ^ 


NAWCADWAR  95033-4.3 


RD 


-//llllllll/- 

— // /-///- 


/—//- 


///lll///- 

- 


-//—///// 
— /xiiiiii/1 
_ 


2111H111''/ -  " _ — ///1123322112 

- - - ///1112.VV^11?2  . 

- - -  - // 1112211/132 

23211222222211/ - _ Hill - 

12111111121221// - 

-1//1//1/11111//// - 

_ /—///// - 


_ : - //-/— 


/!/ 

-// 


_ _ _ 


ZZZZZZZy//iii/ - 1////-/22/11/11///'— - 

,«.—————/1123221/1  122244466^43232^21  ll//—*”" 

-112334236?5R558656o44433372231/1“’"*"““'” 


- //// - — - 


_ — //123S346576575632333333222221/““~”*’ 

ZZZZZ _ ^;ijr323444534321111l7721ll/l/^ - 


-//lllllll/2ll////*</“^''^^^ZZ_// _ 

—y////  “ZZZZZZZZZZ — ///ii/////- 

-  //121111//- 


-//- 


-///lllllll/ - 

-/llllllll//-//— 


- /Ill - 

-~/122221// - 


_ ///1111211111/// 

_ /lll22222l.mi/ 


_  _  _ ^ _ /1112222222111 

//1233321/// - -  _Z _ _ 

1123437211// - - /lllllll/l 

1123221211// _  _ _ — //-/ 

11111-/11/ -  - 


-////////////“ 
\  1/- 
43322 


5 


Symbol 


/ 

1 


I 

<  0.5 
0.5-1 
1-2 

2- 3 

3- 4 

4- 5 


Parameter 

Value 

26 

38.40^ 

^max 

20092  units 

7 

2424  units 

Background 

1042  units 

Radiation 

Cu 

Figure  24.  7475-T651  Ai  t.imes-random  ( 111^  Eole 
figure.  Reference  [501 ■ 


79 


4^  CO  lO 


NAWCADWAR  95033-4.3 


RO 


J 


— //11122111/— 

- ////////// - 

- - - 


- - - - : — ;  //-//!// 

1 1///— .—  /1 1 1121 11 1 
111221111  /- - IlllZIim-- _ _  / 1  1 2 


- ///I 1234332222 

////11^.34322i23 


^///12223111133 
- ///mil - 1.:'2 


33222722211/ - 

437.7233222211 - 

332222323327.21// - - 

272111727222211// -  - - - n/ 

- - - - - - - 

- //-/— ///ll/ - 

_ _ _ 


-/I/// - 


_ _ _ 

_ _ _ _ 

— // — - - 


1223221 1 1 132355587553342«il2l2l/ /"■”■ 

_ _ 12''3352376V66*77775554433334211  _ 

-  1 - - 


-/12336457797796742434433233321/- 
-//1213345f*5645431111223212111//“ 

— //ll22l21/22111//-//-^lll//^^^'“ 


—////// - 


-///ll/l///- 

_ //11211211/- 

_ //11212211/- 


- - - 

. - /121~/ - 

— /172332/// - 

//1333331/// - r - 


-//-111  11  111  11^^^^"^--^ 

_ //1 12122211 111-1/ 

_ /1222372277.:‘111 

1 _ 11123223222221 

-//Ii2222i.:-ni 


11744337211//  _ //lllllllll 

1233322221/// - - //I/-///// 

21221  / 1 1 1  - - - - - - 


_ ///// - - 

_ ///llll////// - 

.  - 

5*4432 


Svnibol  7 - 

‘ _  max 

1  <  0.05 
/  0.05-0.1 

1  0.1 -0.2 

0.2-0.3 
0.3-0.4 
0.4-0.5 


Figure  25. 


Symbol 

I 

^max 

Parameter 

Value 

■5 

0..5-0.6 

29 

38.40’ 

.  6 

7 

0.6-0.7 

0.7-0.8 

^max 

20092  units 

8 

0.8-0.9 

7 

2424' units 

9 

* 

0.9- 1.0 
=  1 

Background 

1042  units 

Radiation 

Cu 

7475-T651  A1  normalized  ( in’)  pole 
figure .  Reference  [501 • 


80 


Cl  CO 


NAWCADWAR  95033-4.3 


RD 

: 

) 

I 

—///////////// 

///////— //////1//////1112 
111/////// — ////iiiiiiiiii2?2t';'2 
22221 1 1 I 1/ 1 1///-// 1111 12223222223322222 
2227222227211 1 1///-/1 122727223.4222232222111 
1222223333221 11 I 1//////11 1222222121211112111111 
111 1122223327211 11///////111111 111 11 1/-/11/1 11 1111 

111/11112111221111//////^//////////// - ///lllllll 

11111////1/11/111/////////////////// - ///l.i73  11 

22111/ — / — /-//////////////////////// - ///121111 


2111/ - ///////mil  lllllll//// - ////lllllll 

1211/ - /////111  III  11  111  mil/// - /////////mil 

mi//// - ///mi  111222111  111//////// — //mi/ ///////1 11 

/mil//// - ////ii/iiiiiim////i/iiiiiii/iiiiiii/////////// 


///l/ll////-/— //llll///l/imillimil2112272212mi/////////~// 

/////////////l/limimillH  11111122222221222121221111////// - /// 

- ///////I  III  11 1 1222217212111///// III  1  lllllll  11  lim/l  11 1///-/-//1 

- //-///1 1 12122222221121 11 1//////// l////////mi  111  mil  ll/////m 

///// — ///111  11127221 1/1 1/11// — // - //-/—//-/mil  mil  11111111112 

l//////////l/lllllim/l//// - — - //1 11121111 11111112222 

im/////// 11  lllllll//-/ - // - /// 1111111111111227222 

TD - 2iim/riiiimii/i/ - ///imiimiimii2ii- 

22111111212772111/// - // — /-////////lllUll  1111111111111/ 

2111111222222111/// — — /-///-///////l/limiliimilllllll  1/1/11/ 

mii222722mm////////-ii//////////mmmmmmm// — //// 

11 111712211/1/111  HIM  mi  im//////imii  mil  mm/i/ 1 1///////11 
iiimii///immi2i2mim//////i/m/mim//////////////im 


//m/-////mmii222iiinimmi/ii///imii/ - /-////iiiii2 

/////-////i  mum  mil/// mi  mm  11211111/ - ////mim 

///-//////111///-///111 11111111111222221111// - r///m-ii 


-//////////// - /// 111172222222221  mi// ////-/ — //-///mill 

//im//// - ///imm/miim//////////////i//miii 

Him/// - //////ii/////////////ii//ii//mimmii 

imi// - /////////1///////////11111  111  121 1222222211 


I21//////l/-/mmimi//— ////mi222722222273.!2777 
2221  /  llllllll  11222  Hill/  //////1 1 X  H223322222222222 
272H?2222:'27272HHl///-//-//mi2222222l222772 
22222332272227m/////-////l  lllllll  mm  11 
22212221  HI  m////////////mHH  11  111 
Himill/////////////////11HH 
IH/////////////////HH1 

:  /mm 

///// 


! 

I 


Symbol 


_i _ 

<  0.5 


/ 

1 


0.5-1 

1-2 

2-3 


3-4 


4-5 


Symbol 

I 

I 

5 

5-6 

.  6 

6-7 

7 

7-8 

8 

8-9 

9 

9-10 

* 

>  10 

Parameter 

26^ 


•^max 

7 

Background 

Radiation 


Figure  26. 


7475-T651  Ai  times-random  Y311Y  pole 
figure .  Reference  [ 50 1 • 


Value 
77.98“  ' 

78538  units 
22591  units 
4216  units 
Cu 


81 


NAWCADWAR  95033-4.3 


111  1 

22211111111122222222223456 
543:>2:’r2:‘l  1111 12232333334455.  7-i'*7 
776655432232221112334556769765778987665 
778&87676654433:’2ll23457767Va9887678J^J765554 
56667898987654433221112345576666565504556434444 
4454456779»7665443?2211 122344333244^32123323334443 

443234445545665333222211111222222222111////12124S5433 

55332212232332333222221 1-^222?22221  111 

6543321 1 1111112222222222222222222222111/ / / /~/ //112246-j44« 
65332/////// 1 1111 12211225444444433222211//// 

564321///-/////11 12223444445554433333221 lll///lll*^^*--‘'33^^ 
444322111///////1122333345566654333222222222112233232.1....U.  ^^3 

23333222llll//l/lll22332344444S4322223234444532443-33^2lll.l^^ 

12222322211  111  1 1233332r'23."‘23344444433456556666-.56w»443.-^-^l  1 T 11  *  1 1  ^ 

1 1  i^^-*22''2'’22-32333545534543444334556666-s765376S555544322222l  1 1 1 1112 

11 11212122334445456566565555431 11222245534554534554332323^^211 11, ^J3 

1111111 1233455660765655644531 1 1 1 1 1 122212212212334443334336-^- ^ 
2111111 1123334  55656644244233  llllllllllillllllll 

32-2-*! 1112232344545433232121 1/11/11///111/11^112224466^6^443^4455,  660 

4353;'2211223533343431111//l//////lil///^>'///^lll^-^^"^"‘^''^^'^^";l';:l2ti:; 

■ri, - S544332233545544323211-/-“/////llllll/l///''llllJ22334344444444^ooo^^4- 

7^544444550666543221// - 

6544455768760444211/ 1//1/  lllllllHHl  l23233343454443333333--6-^-^3-* 

54445068676443353222122221232122211122333.,4444^54^433333363..11^..^ 

4444565654423234433434543433332222223333444t.445444233.32^322-^l-.-3 

23444433l2223344445556544443322222r2223323444463-l---.*l--l— ^3544 

'^''332212l22334544346o5445332333333323322234333321111111.*-ll-34-4  j 

l"'xll  11 1223444333324534322223534444332455433321 111111111-^354*1,-.*- 

Ill 1111 l22333222,'l2235445544444455S666o5433221 1111 1//1 112234444 

111 ''''’“►2’'"’'*‘^21/1///12233 45666677666654333221 12  111111111''  4 

2-2333222llli-///111223333222223333333222222lll2l222222333333 

3443421111//////111*'>222:'222?222222222223223322o434S44^4443 

//'/111*  1'’'>'»22222211  1 12222232344555o54^67  *  6/  -06  4 

%i542211 1232123322335543221  Ill22?2345665637667773fi76ci-, 
55541344345444560544433221112223445689977777778777 
555446776567777655453221 1  122233456665665-».j66656 

5556798876687654322211111222333445554444445 

5555606543343322211 1 1 11222233333333333 
55443333322221111111122222233333 
3322222211111211722223333 


Symbol 

/ 

Symbol 

/ 

Parameter 

Value 

•^max 

-^max 

- 

<  0.05 

5 

0.5-0.6 

20 

*77.98'* 

/ 

1 

0.05-0.1 

0.1 -0.2 

6 

7 

0.6-0.7 

0.7-0.8 

■^max 

78538  units 

2 

0.2-0.3 

8 

0.8-0.9 

7 

22591-  units 

3 

4 

p  p 
bo 

1  1 
p  p 
O'  ^ 

9 

* 

0.9-1.0 
=  1 

Background 

4216  units 

Radiation 

Cu 

Figure  27,  7475-T651  A1  normalized  (3111  pol^ 
figure ,  Reference  [50] ■ 
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Figure  29.  7475-T651  A1  intensity  variation  on 
the  x-rav  stress  analyzer .  for  a 
large  number  of  measurements . 
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The  islands  of  intensities  on  the  perimeter  of  the  (0002)  pole  figures 
indicated  other  positions  for  some  of  the  hexagonal  titanium  crystals. 

Knowing  that  the  basal  plane  was  always  perpendicular  to  a  ray  from  the 
center  of  the  pole  figure  to  a  point  on  the  figure,  there  were  positions  of 
titanium  crystals  which  were  tilted  from  the  normal  direction  of  the  pole 
figure.  These  tilted  crystals  were  mostly  tilted  approximately  70  in  psi 
and  25°  to  35°  away  from  the  transverse  direction.  Since  the  (0002) 
reflection  was  only  along  the  c  axis  of  the  hexagon,  the  central  70  Pole 
Figures  30  and  31  do  not  indicate  all  possible  crystal  positions  because  psi 
tilts  for  crystals  of  between  70°  and  90°  would  not  produce, a  reflection  in 
the  central  70°  of  the  pole  figure.  In  Figures  32,  the  times-random  format 
gives  islands  of  intensity  around  the  perimeter  and  diagonally  across  the 
pole  figure  for  the  (Oil)  planes.  Comparing  Figure  34  with  Figure  32,  the 
(Oil)  reflections  of  Figure  34  may  be  made  to  lie  in  the  islands  of 
intensity  of  Figure  32  if  one  corner  of  the  basal  plane  was  pointed  in  the 
0°  position  of  the  transverse  direction.  Also,  note  that  for  the  crystal 
position  given  in  Figure  34,  all  the  (011)  reflections  are  around  the 
outside  of  the  pole  figure  and  away  from  its  center.  The  orientation  with 
the  basal  plane  parallel  to  the  plane  of  the  pole  figure  cannot  produce  the 
diagonal  island  of  intensity  given  in  Figure  32.  A  tilted  orientation  such 
as  those  shown  in  Figures  30  and  31  or  between  psi  tilts  of  70  and  90  have 
to  produce  the  diagonal  island  of  intensity  that  appears  in  Figure  32. 

Figure  35  displays  the  intensity  variation  during  x-ray  stress 
measurements  for  the  titanium  alloy  where  diffraction  measurements  were  made 
from  the  (213)  planes.  In  Figure  35  over  a  range  of  psi  tilt  of  up  to 
around  35°,  the  intensity  had  a  minimum  about  0°  and  gradually  rises  away 
from  0°  for  psi  tilts.  Turning  to  the  ideal  reflections  given  in  Figure  34 
along  the  rolling  direction,  there  are  no  (213)  reflections  for  the 
hexagonal  orientation  given  in  the  central  30°  psi  tilt  range  over  which  x- 
ray  stress  measurements  were  made.  The  intensity  in  Figure  35  occurred  from 
crystal  positions  tilted  in  psi. 
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Figure  33.  Ti— 6A1— 4V  normalized  ^011’)  pole 
figure.  Reference  f50l . 
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Figure  35.  Ti— 6A1-4V  intensity  variation  on  the 
X— rav  stress  analyzer .  for  a  large 
number  of  measurements . 
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The  tilted  hexagons  could  either  be  those  given  by  Figures  30  and  31  at  the 
perimeter  or  those  having  tilts  of  between  70^  and  90  for  psi. 

6.4  EXPERIMENTAL  MEASUREMENTS 

Monitoring  the  stresses  in  a  stress  raiser  was  sought.  The 
variation  of  stress  and  the  change  in  the  residual  and  mean  stress  during 
cyclic  loading  was  of  interest.  Changes  were  expected  due  to  transient 
cycle  and  time  dependent  creep  and  relaxation  along  with  cyclic  hardening  or 
softening. 

X-ray  stress  measurements  were  made  for  the  case  of  uniaxial  loading. 
The  uniaxial  measurements  were  possible  while  under  load  due  to  advanced 
x-ray  stress  analysis.  Specially  designed  uniform  and  notched  specimens  as 
in  Figures  36  and  37  were  used,  loaded  in  a  MTS  servo-hydraulic  test  frame  as 
shown  in  Figure  38.  The  reasons  for  the  sample  design  are  given  in 
Reference  [37].  While  loaded,  x-ray  stress  measurements  were  made,  and  are 
displayed  in  Figure  39. 

The  measurements  were  made  during  brief  static  pauses  during 
loading.  The  duration  of  the  pause  varied  from  5  minutes  to  1  hour. 

Besides  the  specimen  geometries,  the  only  special  preparation  was  removal  of 
0.002”  of  the  surface  by  electropolishing.  X-ray  measurements  under  load 
were  restricted  to  only  tensile  loading.  However,  residual  stress 
measurements  may  be  made  after  tension  or  compression  loading.  Figure  40 
gives  a  typical  x-ray  report.  The  previously  displayed  Figure  7  gives  the 
plot  produced  with  an  x-ray  report. 

The  surface  effect  was  seen  in  the  measurement  of  uniform  and 
notched  specimens  as  shown  in  the  prior  Figures  18,  19,  and  20  as  lower  than 
bulk  yielding  of  the  surface.  Also,  the  following  Figure  41  displays  a 
similar  surface  effect.  In  Figure  41,  the  solid  line  is  predicted  based  on 
Neuber’s  rule  and  the  stable  cyclic  stress-st.rain  curve. 
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Notes : 

1.  Surfaces  labeled  '‘C”  to  be  parallel  or  angled  to  A— B,  and 
mutually  perpendicular,  and  equidistant  from  A-B,  as  applicable, 
within  0.001. 

2.  Use  value  of  radius  requested  for  each  specimen.  Radius  8  /iin. 
finish.  Remove  0.003  max  on  2nd  last  pass,  0.002  max  on  last  pass. 
Remove  final  0.002  min  by  very  light  cylindrical  grinding  or  honing. 

3.  Dimensions  to  tangency  of  l.OOR 

4.  Center  section  removed  0.002  min  of  surface  by  electropolishing. 

5.  Dimensions  shown  are  inches. 

Figure  36.  Notched  x-rav  specimen  geometry. 
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Notes : 

1.  Surfaces  labeled  "C'‘  to  be  parallel  to  A~B,  and  mutually- 
perpendicular,  and  equidistant  from  A~B,  as  applicable,  within  0.001. 

2.  Straight  center  section  8  //in.  finish.  Remove  0.003  max  on  2nd 
last  pass,  0.002  max  on  last  pass.  Remove  final  0.002  min  by  very  light 
cylindrical  grinding  or  honing.  Final  machining  marks  to  be 
longitudinal. 

3.  Center  section  removed  0.002  min  of  surface  by  electropolishing. 

4.  Dimensions  shown  are  inches. 

Figure  37.  Unnotched  x-ray  specimen  geometry. 
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♦*♦♦♦♦♦*♦**«•**♦*♦  Residual  Stress  Analysis  Report 

Date;  06-AUG-8G  Time:  11: 45; 37 


Sample  Description  :  .b-tok} 

A2RO4A/t:P/L0ADED  Specimen#  away  -from  detector  P5FC 
measurement#  1 


System  Hardware  Con-figuration  : 
Auto  Psi  Angle  Drive 
Psi  Angle  Position  Encoder 

ADC  Channels  Full  Scale 
Collimator  Slit  Type  ~ 


256 

Rectangular  2.00 


X-ray  Target  Material  and  Wavelength 
Detector  Mounting  Block  Bragg  Angle 
Oscillating  Psi  Angle 
High  Voltage  and  Beam  Current 
Peak  Bounding  Range  <percent) 


Copper 

37000. 


1.54178 
160. 00 
3.  00 
l.Bl 
20. 


MaterLal  ID  Number 
Material  Type 


9 

A1  Alloy  (Cr  311) 


Stress  Spectra  File  Speci-f i cations 
Stress  Spectra  Acquisition  Date; 
Stress  Spectra  Count  Time  (sec) 

Calibration  File  Specifications 


000625. SFC 
09-JUL-Be  19:10:42 
30 


CLB2CU. 160 


Detector  Calibration  Coefficients 
A  0.353147E-07  B  -0. 971201E-05 


C  0.0592918  D  152.4716 


Psi 

Sin^2(Psi) 

Pk  Chan 

Intens 

FWHM 

-44.0 

0.48524 

133.67 

219.8 

1.46 

-30.0 

0.26220 

155.71 

558.8 

1.41 

-26.0 

0.20409 

157.62 

1614.5 

1.36 

-21.0 

0. 14000 

161.54 

499.6 

3.08 

-14.0 

0.06B45 

168. 11 

227.2 

1.58 

0.0 

0.  00055 

173.95 

275.4 

2.96 

14.0 

0.04886 

170.25 

383.2 

1.57 

26.0 

0. 18056 

157 . 52 

1 190. 4 

1.72 

30.0 

0.23740 

157.07 

963.5 

1.67 

44.0  0.47829  136.75  290.4 

Fitted  Delta  D  vs  Sin-^2(Psi)  Data 

2.98 

D  Spacing  Intercept 
Slope  of  Fitted  Line 
Material  Stress  Constant 

Residual  Stress 

Counting  Statistics  Stress  Error  (+/-) 
Goodness  of  Fit  Stress  Error  (+/-) 

Total  Stress  Error  (+/-) 


Kalp  Cor 

2-Theta 

D  Spacing 

St.  Dev. 

0.00000 

160.31 

0.782414 

0.000033 

0.00000 

161.60 

0.780934 

0.000015 

0.00000 

161.71 

0.780810 

0.000011 

0.00000 

161.94 

0.780559 

0.000022 

0.00000 

162.33 

0.780144 

0.000039 

0. 00000 

162.68 

0.779783 

0.000031 

0.00000 

162.46 

0.780011 

0.000026 

0. 00000 

161.71 

0.780816 

0.000014 

0.00000 

161.68 

0.780845 

0.000017 

0. 00000 

160.49 

0.782202 

0.000025 

0.779762 

5.  175256E-03 
1.291300E-07 

51.4 

ksi 

354.4  MPa 

0.6 

ksi 

4. 1  MPa 

1.7 

ksi 

11.9  MPa 

1.8 

ksi 

12.5  MPa 

Figure  40.  Residual  stress  analysis  report  table^ 
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The  measurements  were  made  by  x-ray  stress  analysis  and  were  limited  to  a 
surface  layer  of  no  more  than  0.007  inches  as  determined  by  Reference  [39]. 
The  effect  seemed  to  manifest  itself  very  near  the  proportional  limit  of  the 
metals  studied.  The  metals  were  7475~T651  A1  and  Ti-6A1-4V  titanium.  The 
data  were  collected  by  tension  only  quasi-static  ramping  with  static  loading 
during  measurements.  The  surface  seemed  to  yield  at  a  lower  stress  in 
reference  to  the  bulk  since  a  residual  stress  was  evident  on  unloading  to 
zero  load  in  all  cases.  Also,  the  surface  became  perfectly  plastic  after 
yielding  with  slight  increases  and  decreases  in  stress  observed  after  the 
break  in  the  loading  curves.  The  bulk  responded  with  nonlinear  deformation 
including  strain  hardening  seen  in  the  load,  stroke,  and  half  inch 
extensometer  variations.  On  unloading,  compressive  residual  stresses  were 
seen  as  shown  in  Figure  20.  Different  yielding  behavior  was  seen  as 
responsible  for  the  effect.  From  mechanics,  x-ray  stress  analysis  should  be 
applicable  beyond  yielding,  if  the  planner  spacing  of  atoms  is  assumed  to 
only  depend  on  the  hydrostatic  component  of  stress,  and  the  shear  components 
are  assumed  to  only  induce  distortion  with  no  change  in  the  planar  spacing. 
This  distortion  occurs  when  atomic  planes  slide  past  each  other  mostly  due 
to  the  movement  of  dislocations.  Further  study  of  the  surface  response  is 
given  by  Laurent  in  Reference  [51]. 

6.5  CYCLIC  RESIDUAL  STRESS  VARIATION 

A  variation  in  residual  stress  was  observed  during  tension  only  load 
cycling  of  a  notched  7475-T651  A1  specimen.  Figure  42  displays  the  results 
of  cycling  the  notched  aluminum  specimen.  The  loading  was  nominally  elastic 
for  the  test.  Figure  42  indicates  an  increase  in  compressive  stress  which 
seemed  to  approach  an  asymptote  for  the  data  provided. 

Two  empirical  fits  were  done  to  smoothly  fit  the  trend  in  the  data 
of  Figure  42.  As  seen  in  Figure  42,  the  two  empirical  fits  varied  only 
slightly  over  the  range  plotted.  Either  empirical  fit  was  satisfactory  for 
recording  the  trend  displayed  in  Figure  42. 
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A  natural  logarithmic  and  a  power  curve  were  used  to  approximate  the 
cyclic  residual  stress  variation  of  Figure  42.  The  form  of  the  power  curve 
and  appropriate  values  to  fit  Figure  42  are 

(Tr  =  briN  +  Nj,)^^i  -28.0088,  =  5.82  x  10“'^ ,  01^  =  0.053464  (19) 

The  form  of  the  natural  logarithmic  curve  and  the  values  used  to  fit  Figure 
42  are 

c^  =  m^-ln{N  +  Nr)  +  br;  = -1.730562 ,  =  1.89  x  10~^,  6^  = -27.84024  (20) 


The  constants  in  Equations  19  and  20  were  found  by  varying  and 
computing  rriy.  and  by  using  least  squares.  First,  a  value  of  was 
selected.  Next,  for  the  given  value  of  iV^.,  and  6^  were  computed  by  least 
squares.  Finally,  was  varied  and  hj.  and  were  computed  until  a 
combination  was  found  that  gave  a  minimum  for  the  sum  of  the  squares  of  the 
errors.  The  resulting  curve  fits  are  shown  in  Figure  42.  Both  of  the 
fitted  curves  were  found  to  pass  through  the  data  point  at  and  it  may 

be  possible  to  use  the  least  squares  equations  for  and  along  with 
either  Equation  19  or  20  evaluated  at  a  point  such  as  AT  =  0  to  solve  for  the 
constants  and  produce  a  satisfactory  fit.  Finally,  it  should  be  mentioned, 
neither  of  the  two  empirical  equations  has  an  asymptote  for  large  values  of 
their  domains. 

Given  the  residual  stress  variation,  an  attempt  was  made  to  compute 
the  variation  of  the  maximum  stress,  mean  stress,  ctq,  during 

cycling.  To  estimate  the  cyclic  response,  Neuber’s  rule  was  used.  In  the 
previous  Figure  41,  for  the  Ti— 6A1'-4V  titanium  alloy,  the  complete  stress 
response  for  the  notch  root,  as  determined  by  x— ray  diffraction,  was 
plotted.  Also,  plotted  as  a  solid  line,  the  expected  response  as  determined 
by  Neuber’s  rule  was  given:  the  expected  response  was  formed  using  the 
cyclic  stress  strain  curve.  The  x^ray  and  Neuber’s  response  were  both 
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plotted  against  S  =  the.  net  section  stress. 

The  Neuber ^ s  rule  prediction  was  based  on  net  section  uniaxial 
tensile  stress-strain  behavior.  It  was  noticed  that  a  higher  maximum,  <^rnax^ 
and  residual,  <7^.,  stress  was  produced  by  the  Neuber  prediction.  However,  the 
two  responses  agree  during  the  elastic  loading  and  have  the  same  slope  on 
elastic  unloading.  Assuming  the  surface  yielded  before  the  bulk,  accounting 
for  early  yielding  of  the  surface  by  lowering  the  maximum  stress  computed  by 
Neuber ’s  rule  would  result  in  the  residual  stress  computed  by  Neuber ’s  rule 
to  be  nearly  equal  to  the  value  given  by  x— ray  measurement. 

A  cyclic  stress— strain  response  for  the  test  conditions  of  Figure  42 
was  determined  by  using  Neuber ’s  rule.  Based  on  the  results  of  Figure  41, 
results  were  determined  using  both  bulk  and  surface  mechanical  response. 

The  surface  response  included  a  different  yielding  behavior.  In  addition  to 
accounting  for  the  difference  in  yielding,  a  proposed  surface  stress— strain 
curve  is  estimated. 

Figure  43  is  a  plot  of  both  the  experimental  uniaxial  mechanical 

stress— strain  response  and  a  proposed  surface  stress— strain  response  for  the 

7475-T651  A1  aluminum  alloy.  The  surface  stress-strain  response  was 

determined  by  combining  the  results  of  uniaxial  mechanical  testing  with 

observed  x-ray  stress  measurements  made  on  an  unnotched  x-ray  specimen  such 

as  the  one  shown  previously  in  Figure  37.  First,  the  uniform  uniaxial  net 

section  stress— strain  response  was  determined.  The  resulting  monotonic 

tensile  curve  is  given  in  Figure  43.  Next,  the  variation  of  x— ray  stress 

with  the  net  section  stress,  was  made  on  a  unnotched  x— ray  specimen.  The 

A 

prior  Figure  20  records  the  results  to  be  used  in  determining  the  surface 
stress— strain  response.  The  measured  x— ray  stress  values  were  first 
corrected  by  using  Equation  15  along  with  the  value  of  rriy^^  given  in  Table  7. 
The  assumption  was  made  that  the  strains  were  uniform,  and  the  strains  at 
the  surface  were  the  same  as  the  net  section  strains  during  the  measurements 
of  Figure  20.  For  the  linear  portion  of  Figure  20,  the  monotonic  tensile 
curve  and  the  surface  stress-strain  curve  were  assumed  to  coincide.  From 
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the  last  data  point  that  follows  the  linear  loading  trend  of  Figure  20,  the 
incremental  increases  in  the  x-ray  stress  were  plotted  to  compute  the  dashed 
curve  of  Figure  43.  The  following  procedure  was  used  to  determine  the 
dashed  curve  after  linear  agreement  was  not  met  in  previously  displayed 
Figure  20.  Firsts  enter  the  monotonic  tensile  curve  at  the  correct  value  of 
net  section  stress.  At  the  corresponding  strain  determined  for  the  net 
section  stress,  plot  a  surface  stress  value  using  the  incremental  changes  in 
x-ray  stress.  After  the  last  x-ray  data  point  in  Figure  43,  the  dashed 
curve  was  extrapolated  by  assuming  that  the  surface  becomes  perfectly 
plastic. 

Figure  44  is  a  plot  of  the  computed  local  stress-strain  response  for 
the  test  conditions  of  the  prior  Figure  42.  The  net  section  loading  was 
elastic,  and  the  elastic  form  of  Neuber’s  rule,  Equation  4,  was  used  as 
given  previously.  The  monotonic  tensile  curve  in  Figure  43  was  used  to 
determine  the  solid  line  in  Figure  44.  The  dashed  line  in  Figure  44  was 
determined  using  the  proposed  surface  stress  curve  of  Figure  43. 

The  estimated  Neuber  stress— strain  responses  differed  only  in  the 
loading’s  initial  response  as  shown  in  Figure  44.  The  estimated  surface 
response  had  a  lower  initial  yield  and  a  greater  initial  strain  as  expected. 
However,  the  cyclic  response  for  both  was  the  same  because  it  was  elastic 
with  the  same  cyclic  stress  and  strain  ranges.  Also,  cyclic  hardening  was 
not  introduced  since  the  cyclic  variations  were  elastic. 

The  results  of  Figure  44  were  then  used  to  determine  the  residual 
stress  after  one  cycle.  The  curves  of  Figure  44  were  first  shifted 
vertically  downward  by  the  amount  of  the  initial  residual  stress  of  —13.0  ksi 
in  Figure  42.  Including  the  initial  residual  stress,  the  monotonic  response 
gave  a  value  of  —30.0  ksi  for  the  residual  stress  after  one  cycle.  However, 
the  proposed  surface  response  predicts  the  residual  stress  after  one  cycle 
to  be  -40.5  ksi.  In  this  case,  the  net  section  stress-strain  response  seemed 
to  be  a  better  predictor  of  the  initial  cyclic  behavior. 
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Parameter 

Monotonic 

Curve 

Surface  Stress 
Curve 

Specimen 

A2A08B 

ASOO 

ksi 

10.3x10^ 

10.3  xlO^, 

Waveform 

Ramp 

Stepped 

Control 

Strain 

Load 

Loading  Rate 

II 

►— » 

X 

■  o 

1 

manually  slow 

Figure  43.  7475-T651  A1  monotonic  tensile  curve  and 
proposed  surface  stress— strain  curve. 
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Parameter 

Value 

2.02 

s  . 

R  - 

0 

*^max 

Q 

•^max 

49.5  ksi 
10.3x10^  ksi 

E 

Curve 

Monotonic 

Tension 

Surface 

S'^:ress 

Reversal  1 : 

1.17 

1.34 

Ca,  ksi 

82.8 

72.3 

Cycling: 

Ae,7o 

A<t,  ksi 

99.8 

99.8 

Figure  44.  7475-T651  A1  hysteresis  loops 
estimated  bv  Neuber ’ s  rule . 
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On  the  other  hand,  if  the  initial  residual  stress  was  not  used  to  shift  the 
results  of  Figure  44,  the  surface  response  could  predict  the  X'-ray  residual 
stress  after  one  cycle.  The  shift  due  to  the  initial  residual  stress  will 
be  assumed  to  be  appropriate  in  the  following  discussions. 

Figure  45  is  a  plot  of  the  variation  of  o’ffiax  ^0  t)y 

shifting  the  residual  stress  variation  in  Figure  42  by  an  amount  based  on 
the  stress  range  determined  in  Figure  44.  Also,  the  computed  residual 
stress  after  one  cycle  was  plotted  from  Figure  44  shifted  by  the  initial 
residual  stress  along  with  the  measured  x— ray  residual  stress  after  one 
cycle.  The  plotted  variation  of  <Tq  was  seen  to  drift  downward  toward  zero 
stress  and  level  off  in  Figure  45  based  on  the  computed  stress  range  and  the 
measured  x-ray  residual  stress  variation.  Also,  the  residual  stress  seems 
to  approach  asymptotically  to  the  value  of  the  residual  stress  computed 
using  the  surface  stress  response  for  one  cycle;  however,  more  work  must  be 
done  to  determine  if  there  is  a  connection  between  them. 

The  results  of  Figure  41  when  compared  to  Figures  44  and  45  were 
inconsistent  with  regard  to  using  surface  stress  variations  to  predict  the 
resulting  residual  stress  at  the  notch  root.  Beyond  the  use  of  two 
different  materials,  the  loading  rate  differs.  In  Figure  41,  the  loading 
may  be  considered  as  quasi— static ,  because  the  specimen  was  manually  loaded 
at  a  slow  rate.  Also,  there  were  pauses  for  a  few  minutes  when  x-ray  stress 
measurements  were  made.  In  Figures  44  and  45,  the  loading  rate  was  rapid, 
and  the  only  pauses  were  at  zero  load  when  the  residual  stress  was  measured. 
The  difference  may  then  be  due  to  the  materials  used  or  a  time  dependent 
effect  when  the  results  in  Figure  41  are  compared  with  those  in  Figures  44 
and  45. 
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7.0  CONCLUSIONS 


Cycle  and  time  dependent  stress-strain  transients  are  found  to  be 
prevalent  in  metals  at  room  temperature.  These  transients  cause  local 
variations  in  stress  and  strain  amplitude  and  mean  stress  during  cycling  of 
notched  members . 

The  viscoplastic  models  include  cycle  and  time  dependent 
stress-strain  transients.  The  recursive  integral  form  of  Walker’s  model  was 
found  to  be  more  effective  in  time  step  distribution  than  the  differential 
forms  using  Euler’s  integration,  Runge-Kutta,  and  similar  methods  when  large 
excursions  in  strain  are  required  based  on  the  reduced  number  of  time  steps 
needed  to  achieve  satisfactory  solutions.  A  combination  of  Neuber’s  rule 
and  Walker’s  model  allowed  the  determination  of  the  local  notch  stresses  and 
strains  while  avoiding  the  .use  of  2-D  finite  element  computation.  The 
resulting  local  notch  stress-strain  response  included  transient  variations  in 
stress  and  strain  amplitude  and  mean  stress  for  cyclic  load  histories.  The 
viscoplastic  model  material  constants  were  difficult  to  obtain  because  they 
required  companion  tests  at  varying  strain  rates  along  with  nonlinear 
optimization  procedures  for  their  determination. 

Cycle  and  time  dependent  transients  influence  fatigue,  damage  by 
altering  strain  amplitude  and  mean  stress  excluding  the  effects  of  creep 
damage.  The  use  of  prevalent  strain-life  data  limits  damage  determination  to 
strain  amplitude  and  mean  stress  determination.  Fully  reversed  strain 
control  fatigue  test  results  are  valid  since  the  resulting  strain  amplitude 
was  unaffected  by  material  transients.  Once. local  notch  strain  amplitudes 
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and  mean  stresses  were  determined  and  included  the  effects  of  transients; 
strain-life  data,  modified  Morrow’s  parameter,  and  Miner’s  rule  may  be  used 
to  determine  damage,  as  defined  herein,  for  variable  amplitude  load 
histories. 

The  results  and  accomplishments  of  this  investigation  are  summarized 

as : 


1)  Time  and  cycle  dependent  mechanical  stress-strain  behavior 
from  Walker’s  viscoplasticity  constitutive  law  combined  with 
Neuber’s  rule  modeled  the  local  cyclic  variations  of  mean 
stress  and  strain  amplitude  in  a  notch  and  required  only  a 
one-dimensional  stress-strain  analysis. 

2)  Time  and  cycle  dependent  mechanical  transients  were  small  for 
the  Ti-6A1-4V  and  7475-T651  A1  alloys  chosen  at  room 
temperature  from  the  results  of  both  cyclic  rate  and  static 
testing. 

3)  Rainflow  cycle  counting  was  done  on  the  local  notch  strain 
history  to  compute  mean  stress  and  strain  amplitude  which 
would  maintain  consistency  with  prevalent  strain— life  data 
which  are  obtained  ignoring  transients  to  avoid  fatigue 
damage  modeling  and  testing  to  incorporate  the  effects  of 
transients  on  fatigue  damage. 

4)  Due  to  the  small  amounts  of  time  dependent  mechanical 
response  observed  for  the  Ti— 6A1— 4V  and  7475— T651  A1  alloys 
used,  constants  for  the  viscoplasticity  model  were  not 
obtained  for  the  alloys  at  room  temperature  since  the 
viscoplasticity  models  do  not  reduce  to  the  time  independent 
case  resulting  in  nonconvergence  of  the  nonlinear 
optimization  to  obtain  the  constants. 
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5)  Advanced  x-^ray  stress  instrumentation  allowed  the  measurement 
of  the  stress  in  a  notch  under  load  during  brief  pauses  over 
a  cycle. 

6)  An  anomalous  surface  behavior  was  observed  and  attributed  to 
a  lower-than-'bulk  yield  point  at  the  surface  which  was  time 
dependent  as  observed  with  the  x-ray  stress  instrumentation. 

7)  Texture  was  found  to  be  extreme  for  both  alloys  chosen,  but 

x-ray  measurements  still  followed  the  linear  d— spacing  versus 
9 

assumption,'  and  satisfactory  x-ray  stress  values  were 
obtained. 

8)  Finally,  x— ray  stress  data  of  residual  stress  variations  with 
cycling  in  a  notched  member  agreed  favorably  with  the 
assumption  of  relaxation  of  mean  stress  and  discounted  the 
validity  of  relaxation  of  residual  stress. 
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APPENDIX  A.O  DERIVATIONS  FOR 
COMPUTER  ALGORITHMS 


A.1.0  ITERATIVE  FORM  FOR  STRAIN  CONTROL 


Walker,  in  the  appendix  of  Reference  [5],  outlined  the  procedures 
needed  to  obtain  the  equations  for  numerical  solution  of  his  model  which  was 
used  in  this  study.  The  discussion  was  limited  to  the  strain  control  form. 
His  procedures  were  followed  and  the  details  are  given  as  follows  for  the 
uniaxial  case. 


The  mechanical  stress  was  given  by  the  following  equation  in  Table  2 
as 


(r(t)  =  Q(t)  + 


Let 


tz=zt 


n  -f”  1 


and 

+l)  =  ‘^n  +  l  ^(*71  + l)  “  ^n-f  1  -f  l)  “  +  1 


Substituting  the  above  into  the  previous  equation  and  rearranging  gives: 


‘n  +  1 


O  —  f  e  ^  9(0 V 
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Notice  that  is  constant  so  one  may  factor  the  appropriate  term  outside 

of  the  integral 


^n  +  1 


(A.1) 


Breaking  the  above  integral  into  two  integrals  over  the  time  intervals  (0,<jj) 
and  (<„,<„  gives 


‘n  +  1 


0 


Now  rewrite  equation  A.l  for  the  time  interval  (0,<„)  as 

0 

so 


(A.2) 


0 

Substitution  of  the  above  equation  into  A.2  gives 


71  -f-  1 


and 


1 


r^^n  + 1 


Now  assume  that  is  constant  over  the  time  interval.  Also, 

approximate  the  derivatives  by  finite  differences  such  as  St  =  —  The 

above  equation  becomes 
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‘n  +  l 


-6q 


'n+1 


<in  +  l^E6l^)  I  e9(OdC  +  (£r„-flJe-^9 
in 

Now  change  the  variable  of  integration  from  <  to  g(C)  so 


"n  +  1 


p-^9 


in  dC 


Find  an  expression  for  in  terms  of  finite  differences  and  factor  out  of 

the  integration  under  the  assumption  of  it  being  constant 


•in  +  l^ES€-6Q'^  nfl 


""n  +  1  “  “n  +  1 


6t 


Integration  gives  the  result 


^n  +  1  ^^n  +  1 


St 


By  combining  exponentials  by  multiplication,  rearranging  and  simplifying  for 
Si  gives  the  desired  result 


^ESe-SnJl-e 


71  +  1  Ti+l'^  Sq 

when  Sq  was  nonzero. 


(A.3) 


Before  yielding  it  may  be  seen  from  Table  2  that  q{t)  and,  therefore, 
Sq  may  be  equal  to  zero.  This  was  especially  possible  during  numerical 
calculations  due  to  underflow.  Equation  A. 9  must  then  be  evaluated  in  the 
limit  when  Sq  approaches  zero.  The  limit  is  taken  as  follows: 

+  1  -  +  1  = 

Applying  I’Hospital’s  rule  and  simplifying  gives 
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<Tn  +  l  =  E6€  +  <r^  (A-4) 

the  expected  elastic  solution. 

The  plastic  strain  equation  from  Table  2  is  now  to  be  numerically 
approximated.  It  will  be  seen  that  the  change  in  the  plastic  strain  over 
the  time  interval  is  needed  for  substitution  into  the  some  of  the  other 
equations.  Starting  with 

and  taking  the  derivative,  one  obtains 

d£  —  de  Ida 

dt  dt  Edt 

Now  approximate  the  derivatives  by  finite  differences 

bi  6i  Ebi  ' 

Simplifying  gives 

6c  =  6€-h<T  (A-5) 

E 

the  desired  result. 

The  equilibrium  stress  equation  is  now  to  be  approximated.  The 
derivation  follows  that  of  the  mechanical  stress.  The  equilibrium  stress  is 
given  in  Table  2  as 

fi(f)  =  ft+7Vjc(<)  +  iV2  • 

J  0  ^ 

Let  t  =  tn+l  ’  +  l)  =  +  1  ?  etc.,  and  factor  constant  terms  giving 


122 


NAWCADWAR  95033-4.3 


"n  +  l 

!n,+  l=S  +  "l'n  +  l  +  "2  |  r'”"  +  '  ' ,i< 


=8+n,.„+i+jv2s  ’'‘+>  I 


It  -r 

=  fi  +  iViC„^l  +  iV2e"^«  +  l  I 


eff(C)|c  3: 


n  +  1  fg<?(C)^, 

J"  5C' 


Now,  determine  the  expression  for  the  integral  over  the  time ’ interval  (0,<„) 


Q„  =  fi+iVjC„  +  Ar2  e 

0 

=  ^^  +  iVjc„  +  iV2e"^" 


Therefore, 


dC^-  N^e-^ri 


Next,  perform  the  appropriate  substitution 


n  -f  1 

n„^l  =  ft+7ViC„^l+iV2e”^«  +  l  I  e^iO^^dC^N^e 

U 


-9n  +  l(  ^ 


N2e 


Assume  appropriate  terms  are  constant  for  integration,  change  the  variable 
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of  integration,  approximate  derivatives  with  finite  differences,  and  finally 
integrate  and  simplify 


eS(0  . 
—  dg{0 


dg{0 
dQ 


+"2« 


N^e 


/Sc\ 


=  fi  +  '^l'a  +  l  +  ''2'  r, 


'n  + 1 


d{Q 


\StJ  tfi 


-gji  4- 1( ^ 


Noe 


3n 


=  S  +  JVi.„  + 1  +  +  iMe’"  +  >  -  .“''■) 


[  / 


=  fi  +  iViC„^l+^l-e-'5^?)+(n„-^^-iVicJe-'5^  (A-6) 

giving  the  desired  result  when  6g  is  nonzero. 


During  elastic  loadings,  Sg  may  be  zero,  and  the  limit  of  the  above 
equation  must  be  taken  as  it  approaches  zero.  This  results  in  the  following 
expression; 


(A.7) 
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to  be  used  when  Sg  is  zero. 

The  equation  for  the  isotropic  hardening  does  not  need 
approximation.  It  may  be  rewritten  using  the  proper  nomenclature  for  finite 
time  steps.  Beginning  with  the  equation  in  Table  2 

-TV  r(<) 

k{t)=K^-K2e  ~ 

and  letting  <  =  ^(0  =  ~  ^n  + 1  find 


'n  +  1 


=  A',  -  Aoe 


-%n+l 


the  desired  result. 


(A.8) 


The  expressions  ?(<)  and  g{t)  in  the  integrating  factors  must  be 
developed  for  the  piecewise  integration  approximation  procedure.  The 
approximation  for  q{t)  proceeded  as  previously  described  to  obtain  the  change 
in  9(0  over  a  time  interval.  Starting  from  the  equation  in  Table  2 


we  find 


dq  _  E  (dr^ 
dt  ~  k{t)\dtj 


N  , 


8q _  E  ( 6r\l 

St  ~ 


JL 

N  ,  and 


6q  =  k 


E6t 
n  +  1 


_L 

N 


(A.9) 


the  desired  result.  Continuing  to  the  expression  for  g{t),  starting  with  the 
expression  in  Table  2  as 
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|o{(^3  +  ^4® 

we  find 

®  =  K  +  "4'""^’'‘‘’)|+'^6l«(‘)l"“‘  ’ 

‘f  =  (jV3  +  N4e-"5’-»  +  l)|+.V(Jn„^l|«-l  ,  and 

Sj  =  (N3  +  fl?4e”^5’’n+l^r  +  ^,^{,|n^^j|M-l  (A.IO) 

the  needed  expression. 


Since  the  equations  are  iteratively  solved  and  6q  and  6g  depended  on 
<7  and  n,  respectively 5  a  Newton-Raphson  iteration  is  performed  to  improve 
their  values  as  suggested  in  Reference  [5].  This  is  done  when  the  variable 
of  interest  is  nonzero.  If  the  6q  or  6g  is  zero,  the  associated 
Newton-Raphson  iteration  is  skipped.  The  following  equations  are  needed  to 
evaluate  this  iteration.  Newton’s  iterative  method  is  as  follows:  if  an  x 
is  desired  such  that  /(x)  =  0  given  an  initial  estimate  an  improved 

estimate  is  given  by 


^new 


=  X.i  1  - 


old 


‘‘n^oid) 


dx 


df{6g).  df{6q)^ 

so  that  f{6g)^^  d{Sg)  '  ' ~d(6‘q)"  needed. 

A.IO,  the  appropriate  equations  for  6g  were 


Starting  from  equation 


Sg  =  (N^  +  N^e  ^ 


/(«s)l=(w3  +  JV4e  5’’n  +  l 


>’-+M"n+ir’‘ 

,Af_2l^n  +  l| 

I  d{69) 


Sg^O 


(A.11) 

(A.12) 
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„  +  l  =  S+JViC„+i+^l-»  «»)  +  (n„-S-JVic„)e  «« 


5Q, 


NoSc 


-Sg 


^»n+l|_ 


(  dn 


d(6g) 


n  +  1 


69 


if  fi„  +  i>o 


diSg) 

if  fi  .  <  0 


6g, 


new 


^3 old  ~ 


diSg) 


(A.13) 


(A.14) 


(A.15) 


when  ^9oid  nonzero  or  else  these  equations  are  skipped.  Starting  from 

equation  A.Q,  the  appropriate  equations  for  6q  are 
E8t  fMl-jf 


_EStj6r\l-jf 
X  c  ESt  (6r\}-^  „ 

/(<59)2  =  ^9-I^^6t/ 

/(^9)2  _  1  _  ggf 


(A.16) 

(A.17) 


d{Sr)  _  9|  (5c  I 

Wa(6g) 


6c  =  Se  —  ^ 


^(^c)  _  id(^q-)  _  1  ^(‘^n  +  1  ^n)  1  +  1 

dlSq)  ~  Ed{6q)  ~  E  d{6q)  E  d{6q) 


(A.18) 


^^n  +  1  {E6e-6n){l-e-^'i)  (E6e-6Q)e  ,  _o  ),-Sq 

d{6q)  -  d{6q)  f^sqf  ^  n  n) 

dCl. 


'n+1 

d{6q) 


=  0 
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d{6q)  ~  (ig)2  ^9  \  n  n 

(a.i9) 

^(*9)  (Sqy 


diSc) 

a(5r)_j  d{6q) 
5(^9)")  d{6c) 

d{6q) 


if  5c  >  0 
if  6c  <  0 


(A.20) 


hnew-Kld  df{6q^i^)2 
d(6q) 


(A.21) 


when  is  nonzero  or  these  equations  are  skipped.  The  final  expression  to 

be  determined  for  the  strain  control  form  is  the  one  for  the  cumulative 
plastic  strain,  r{t).  Starting  from  the  expression  in  Table  2  the  derivations 
proceeds  along  the  following  lines: 


rt 

dc 

•  0 

ac 

dC 


dr  _  dc 
dt  dt 


Sr _  5c  _ 1 5c  I _ 1 5c  | 

6t^  St  "|5iP  St 


5r  =|5cl 


(A.22) 


which  are  the  needed  expressions.  The  equations  for  the  strain  control 
iterations  are  summarized  in  the  following  table.  Also,  the  finite 
difference  expressions  are  given. 
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Sc 


=< 


TABLE  A.l.  Iterative  Equations  for  Strain  Control. 

(ESe-sdfl-e  Sq  if  6q:^0 

^n  +  l+ - S^ 

E6€  +  <rn  if  6q  =  0 


z=  Se-  ^6a 


Q 


n  -{- 1 


'n  H- 1 


=< 


’Sg 


N 2^c  “h  Qji 


=  K]^-K2e  +  1 


E6tJSr\i-jf 
-Nrr. 


=  k„,XSt 

n  “h  1 


Sq 

Sg  =(N^  +  N^e  +  Vpn  +  1 P "  ^ 

m)i  =  (^3 + 

c,/u  nio  |M-2^^^  +  l|  ^ 


an. 


N^Sc 


diSg) 


{69) 

an 


n  “h  1 


^%  +  l\_\  diSg) 

diSg)  1  an 


fl  "f"  1 


d(6g) 


69 


if  n„^i>o 


if  «„  +  l<0 


(A.3) 

(A.4) 

(A.5) 


if  Sg^O  (A.6) 
if  Sg  =  0  (A.7  ) 

(A.8) 

(A.9) 

(A.IO) 

(A.ll) 

(A.12) 

(A.13) 

(A.14) 


^9new  ■ 

-^3old  df{Sg^^^)^ 
d{Sg) 

(A.15) 
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(A.16) 
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TABLE  A.l  CONTINUED.  Iterative  Equations  for  Strain  Control. 


TABLE  A,2.  Finite  Difference  Expressions. 
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TABLE  A.3.  Variables  Incorporated  to  Improve  Efficiency 


Always 

Constant 
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^3  =NQxStxYj^^  =  z-^xYj^^  20 

=(^^3  + AT^xe^  ^  ”  +  l^'\x6r 


=  <^n-^n 


Constant  X2  = e 


ig  =  ft  +  JV^  X  Cj^  ^  1 


®13=(=^12) 


'14- -77 
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V<  ^  1  Cl 1  /“V  n  cj  O  ■  ^  I 


Equations 
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rr 
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TABLE  A.4.  Final  Formulation  for  Strain  Control, 


^7  ^  '’n  +  1 


Ml 


f{6g)^  =x-^  +  z-^xxjXx^-6g 
^'X'  ^3-^4 
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TABLE  A.4  CONTINUED.  Final  Formulation  for  Strain  Control. 
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Some  of  the  quantities  common  to  several  of  the  above  equations  may 
be  grouped  together  and  calculated  as  intermediate  values.  This  was  done  to 
improve  computational  efficiency.  The  above  equations  are  combined  as 
needed  to  accomplish  this.  New  variables  are  defined  to  eliminate  redundant 
calculations.  These  variables  and  the  reformulated  iterative  equations  are 
given  in  the  following  tables. 


A.2.0  ITERATIVE  FORM  FOR  STRESS  CONTROL 

The  derivations  for  obtaining  the  iterative  equations  for  stress 
control  are  outlined  in  the  following  text.  Similar  procedures  as  those 
used  in  section  A.l  of  Appendix  A  for  the  strain  control  case  are  used.  A 

detailed  discussion  is  not  given  for  the  stress  control  equations,  and  only 

the  equation  derivations  are  given.  The  equations  again  are  for  the 
uniaxial  case. 

Since  the  variation  in  stress  is  assumed  to  be  known,  Equation  A.3  is 
rewritten.  This  is  necessary  to  compute  the  strain  increment.  Beginning 
with  Equation  A.3  and  solving  for  6c  we  find 

if  6q  is  nonzero.  If  6q  is  equal  to  zero,  the  following  results 


Sc  = 


6(t 

E 


for  the  elastic  case.  Incorporating  variables  for  computational  efficiency 
gives 


(A.23) 


or 
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if  6q  is  zero.  Listed  in  the  following  table,  expressions  are  given  that  are 
slightly  different  in  arrangement  from  those  in  Table  A.4  but  compiute 
equivalent  values. 

In  summary,  the  stress  control  calculations  started  with  the 
suitable  modification  of  Table  A.4.  First,  ignore  all  equations  that  involve 
calculating  and-6o-  since  they  are  known  and  constant  for  the  stress 

control  case.  Next,  include  equations  A.23,  A.24,  and  A.25  as  needed  to 
iterate  for  the  unknown  strain  quantities.  Finally,  replace  the  expressions 
in  Table  A.4  with  those  in  Table  A.5  as  appropriate. 


135 


NAWCADWAR  95033-4.3 


TABLE  A.5.  Equations  Modified  for  Stress  Control. 
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A.3.0  ITERATIVE  FORM  FOR  NEUBER’S  RULE 

For  the  previous  cases  of  stress  or  strain  control,  the  time 
variation  of  either  the  stress  or  strain  is  known,  and  the  unknown  strain  or 
stress  variation  is  to  be  determined.  For  the  notch  analysis,  the  time 
variation  of  the  stress  and  strain  is  unknown,  but  the  time  variation  of 
either  the  nominal  load  or  the  net  section  stress  is  known.  Neuber’s  rule 
is  then  used  to  relate  the  time  variation  of  the  net  section  stress  to  the 
time  variation  of  the  local  notch  stresses  and  strains.  In  this  case,  the 
values  of  both  the  stress  and  strain  must  be  iteratively  determined  at  each 
time  step  as  the  net  section  stress  varies.  Along  with  the  equations  in 
Table  A.4  for  strain  control  we  must  now  include  a  method  for  iteratively 
modifying  the  strain.  This  is  done  by  iteratively  correcting  the  strain  as 
determined  by  Neuber’s  rule.  The  correction  to  the  strain  is  made  by  a 
Newton-Raphson  approach  using  the  subincrement  Neuber’s  rule.  This  is 
necessary  since  if  the  strain  is  determined  from  the  subincrement  Neuber’s 
rule  directly,  it  is  iteratively  unstable.  This  is  true  since  Neuber’s  rule 
involved  terms  with  the  product  of  stress  and  strain.  The  current  value  of  - 
the  stress  could  be  larger  or  smaller  than  the  correct  value  of  stress,  and 
would  be  input  into  the  subincrement  Neuber’s  rule.  This  would  result  in  a 
corresponding  smaller  or  larger  value  of  the  strain,  respectively,  than  the 
correct  value  at  this  iterative  stage.  This  stain  value  would  then  be  used 
to  compute  an  updated  stress  value  which  would  now  be  smaller  or  larger, 
respectively,  if  the  original  stress  at  the  previous  stage  is  larger  or 
smaller.  The  values  of  stress  and  strain  would  switch  from  being  too  small 
to  too  large,  accordingly,  due  to  the  fact  that  Neuber’s  rule  involves  the 
product  of  the  stresses  and  strains  in  its  terms.  Therefore,  a  Newton— 
Raphson  approach  using  the  subincrement  Neuber’s  rule  is  used  to  overcome 
this  iterative  difficulty.  The  details  of  the  Newton— Raphson  equation  using 
the  subincrement  Neuber’s  rule  are  described  in  the  following.  This 
equation  is  included  with  those  in  Table  A.4  to  iteratively  determine  the 
uniaxial  stress  and  strain  time  variation  for  a  notched  member  given  the 
time  variation  of  the  net  section  stress. 
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We  are  interested  .  in  iteratively  correcting  the  strain  using  the 
Newton-Raphson  technique.  This  is  described  symbolically  as 


Se  -8f 

diSe) 

The  functional  forms  of  f{6e)  and  its  derivative  are  determined  from  the 
subincrement  Neuber’s  rule.  The  subincrement  Neuber’s  rule  is 


(A.26) 


(kJSS  +  6S')y 

c  =  (5<t  +  S(t'){S€  +  Sf')  — - p - 


giving 


fiSe)  =  {Sa  +  6cr'){6€  +  Se')  -c-*Q  . 


(A.27) 


Now,  determine  the  derivative, 


dfiSe)  df  d{6cr)  df  d{6€) 
d{6€)  ~  d{6<T)di6€)^  d{6c)d(6e) 

df  djda)  df  (A.28) 

~  di6(T)d(6€)'^  d{6€) 


where 


(A.29) 

(A.30) 


Now  determine  d{6a)ld{6t).  We  must  consider  two  cases 
is  zero  or  nonzero.  For  the  case  where  6q  is  nonzero 
A.3  of  Table  A.l , 


{eS€ 

‘^n+l  =  ^n  +  l+ - 


6q 


depending  on  whether  6q 
,  we  start  with  equation 
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continuing 


6cr  —  ■ 


(ESe-Snfl-e-^A  . 

\ - A - 1 +(<.„-  + si„ + 1  - 


=  {E6e  -  1  4-  - Yq - ^  +  1 


therefore , 

d{6(T)  d{6(T)  d{ficr)d{()q)  5((5cr) _ ^(^n  + 


and 


d{8e) 


d{6q) 

d(6c) 


=  0 


a(6e)  “  5? 


so 


d(6e)  ■“  h 


if  6g  ^  0 


the  desired  equation.  For  the  case  where  bq  is  zero  we  start  with  equation 
A.4  of  Table  A.l, 


continuing 
b<T  =  ESe 

so 
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djScr)  _ 
d{6e)  ~ 


if  =  0 


for  the  other  case. 


Summarizing  the  results  immediately  above  gives 


d{S(T) 

W) 


=< 


Sq 


if  Sq 
if  (5g  =  0 


Combining  equations  A.28j  A.29  5 


A.SO,  and  A.31  gives 


(A.31) 


l(5£  +  (5«')jE'  +  (<5cT  +  ^(r') 


if  Sqq^O 
if  6q  =  Q 


Substitution  of  the  above  into  Equation  ,4.26  along  with  equation  A.27  results 
in 


6e 


old' 


{Sff  +  +  Se')  -  c 


^^new  ' 


Se 


old ' 


Sq 

{6<t  +  o/(f  +  ^^0  ~ 

Str') 


+  {6a  +  6(T') 


if  Sq^O 


if  6q  =  0 


and  including  terms  to  improve  computational  efficiency  and  simplifying  the 
subtraction  gives 


Sc 


new  ~ 


^^old 

^^old 


c-{S(T  +  Sa^)iS€^l^  +  S€') 

c-(S<T->rSa'){Sc^l^-\-Sc') 
E{Sc^^^  +  Sc')  +  {S<T  +  S(t') 


if  ^  0 

if  Sq  =  0 


(A.32) 


In  summary,  Equation  A.32  is  used  in  combination  with  those  in  Table  A.4  to 
perform  the  needed  iterative  calculations  for  Neuber  control.  Also,  logic 
is  included  to  give  the  correct  sign  for  the  stress  and  strain  values.  This 
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is  needed  since  Neuber’s  rule  involves  terras  that  are  the  products  of  the 
stress  and  the  strain.  There  are,  therefore,  two  possible  solutions 
corresponding  to  loading  or  unloading  analogous  graphically  to  results  in 
the  first  and  third  quadrants  for  a  coordinate  system  centered  at  the 
reversal  point.  Once  logic  is  included  to  obtain  the  correct  result  for 
loading  or  unloading.  Equation  A.32  and  those  in  Table  A.4  can  be  used  to 
perform  the  iterative  calculations  needed  to  approximate  the  uniaxial 
stress-strain  response  for  a  notched  member. 
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APPENDIX  B,0  FATIGUE  HISTORY  PROGRAM 

B.l.O  INTRODUCTION 

The  program  MFATHS  generated  the  stress-strain  response  for  a 
material  given  its  net  section  stress  or  strain  history.  The  computer  code 
for  MFATHS  was  written  using  the  FORTRAN??  language  ANSI  standard.  The 
program  will  simulate  three  uniaxial  load  cases.  The  cases  were  strain, 
stress,  and  Neuber  control.  Neuber  control  involved  predicting  local  notch 
response  for  a  stress  raiser  given,  the  stress  concentration  factor.  All 
floating  point  values  were  computed  with  double  precision  arithmetic.  Two 
input  files  were  needed.  They  were  “INPUT”  and  a  file  that  contains  the 
load  history.  “INPUT”  contained  information  on  the  material,  type 
simulation,  convergence  parameters,  and  loading  rate  to  list  a  few.  The 
file  that  contained  the  load  history  contained  the  peak  and  valley  history. 
The  load  history  does  not  have  to  be  normalized  as  the  program  will 
normalize  the  history  to  any  maximum  excursion  level  from  zero  that  was 
desired.  In  the  area  of  convergence  parameters,  default  values  were 
assigned  within  the  main  program  by  PARAMETER,  DATA,  and  assignment 
statements. 

The  default  values  may  be  permanently  changed  in  the  main  program. 
Also,  the  program  default  values  may  be  redefined  during  program  execution. 
In  the  main  program,  the  PARAMETER  real  and  integer  numeric  constants 
MINITl,  MAXIT2,  and  PERERR  along  with  FSNINC,  FSSINC,  FNEINC,  CSNINC, 

CSSINC,  CNEINC,  IFNINC,  ICNINC  specify  the  control  of  the  convergence  and 
integration.  The  above  values  may  be  redefined  when  the  program  was 
executed. 
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The  PARAMETER  integer  constants  NUMLET,  INNUM,  lOTNUM,  INHNU, 
lOTHNU,  lOTGNU,  IRORNU  and  the  PARAMETER  character  constants  INNAM,  OUTNAM 
were  assigned  default  values  in  the  main  program.  These  values  may  only  be 
changed  in  the  source  code  of  the  main  program.  The  following  list  in  Table 
B.l  describes  the  variables. 

The  program  was  controlled  through  the  input  file.  The  input  file 
contained  the  following  information  as  listed  in  Table  B.2,  and  the  input  is 
given  line  by  line. 
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TABLE  B.l .  Main  Program  PARAMETER  Variables. 


PARAMETER  numeric  constants 

MINITl  —minimum  number  of  iterations  during  integration 
subroutine  call 

MAXIT2 

-maximum  number  of  iterations  during  integration 
subroutine  call 

PERERR 

—percent  error  specified  for  convergence 

FSNINC 

-fine  strain  increment  to  be  used  during 
integration 

FSSINC 

-fine  stress  increment  to  be  used  during 
integration 

FNEINC 

—fine  Neuber  increment  to  be  used  during 
integration 

CSNINC 

—coarse  strain  increment  to  be  used  during 
integration 

CSSINC 

—coarse  stress  increment  to  be  used  during 
integration 

CNEINC 

-coarse  Neuber  increment  to  be  used  during 
integration 

IFNINC 

—fine  number  of  increments  to  be  used  during 
integration 

ICNINC 

—coarse  number  of  increments  to  be  used  during 
integration 

NUMLET 

—maximum  number  of  letters  in  a  file  name 

INNUM 

-unit  number  of  input  data  file 

lOTNUM 

—unit  number  of  output  message  file  giving 
verification  of  input  and  error  messages 

INHNU 

—unit  number  of  input  load  history  file 

lOTHNU 

—unit  number  of  output  local  stress— strain  history 
reversal  points  file 

lOTGNU 

—unit  number  of  outputted  complete  local  stress- 
strain  history  which  may  be  used  for  later 
plotting 

IRORNU 

—unit  number  of  reordered  peak— valley  load  history 
at  the  maximum  peak,  minimum  valley,  or  the 
largest  excursion  from  zero 

PARAMETER  character  constants 

INNAM  -name  of  input  data  file 

OUTNAM 

—name  of  output  message  file 
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_ _ TABLE  B,2.  Input  for  File  “IWVTL - - - 

1.  Problem  Heading  -user  input  description 

2.  Output  File  -name  of  file,  enclosed  in  single  quotes,  to 

contain  the  computed  stress-strain  reversal  points 

3.  Type  of  control -one  of  the  following  values  1,  2,  or  3 

1  =strain  control,  do  not  include  line  3a 

2  =stress  control,  do  not  include  line  3a 

3  =Neuber  control,  also  include  line  3a 

3a.  Stress  concentration  factor  -included  only  if  3  for  Neuber 
control  is  inputted  on  line  3 

4.  Specimen/Material  Name  —user  supplied  description  enclosed  in 

single  quotes 

5.  Unit  System  -one  of  the  two  values  1  or  2 

1  =kip,  ksi,  in/in,  seconds 

2  =:MN,  MPa,  in/in,  seconds 

6.  Modulus  of  Elasticity,  E 


7. 

Walker’ s 

Model 

Constants  -8,  iV,  M 

8. 

Walker’ s 

Model 

Constants  N2^ 

^3 

9. 

Walker ’ s 

Model 

Constants 

^6 

10. 

Walker’s 

Model 

Constants 

^2 

11.  Title  of  History  —user  specified  description  enclosed  in  single 

quotes 

12.  Filename  of  Input  Peak/Valley  Load  history  enclosed  in  single 

quotes 

13.  Magnitude  to  scale  largest  excursion  from  zero  for  a 

corresponding  peak  or  valley  in  the  load  history 

14.  Automated  scan  of  history  for  magnitude  of  original  maximum 

excursion  from  zero  —one  of  two  values  0  or  1 

0  =  NO.  do  not  scan,  and  include  a  line  14a  with  the  value 
1  =  YES,  scan,  and  do  not  include  a  line  14a 

14a.  User  supplied  maximum  excursion  from  zero  —include  this  line 
only  if  0  is  supplied  on  line  14 

15.  Loading  Rate 

16.  Create  data  file  for  later  plotting  of  hysteresis  loops  -one  of 

two  values  0  or  1 

0  =  NO,  do  not  create  the  file,  and  do  not  include  line  16a 
1  =  YES,  create  the  file,  and  include  line  16a 
16a.  Filename  for  plotting  data  enclosed  in  single  quotes  - 
this  line  is  not  included  if  a  0  is  given  on  line  16 
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_ _ TABLE  B.2  CONTINUED.  Input  for  File  ‘‘W?VT\ _ _ 

17.  Selection  of  convergence  parameters  --one  of  the  values  0,  1,  2, 
10,  11,  or  12  for  the  operations  tabulated  below 

Constant  Number  Constant  Step 
of  Increments  Length 
User  Specified  0  10 

Default  Fine  1  11 

Default  coarse  2  12 

If  0  used,  include  line  17a 
If  10  used,  include  line  17b 

Else,  do  not  put  a  line  17a  or  17b  in  the  input  file 

17a.  If  line  17  is  0  then  include  the  following  3  lines 

17al.  MINIT,  MAXIT  -minimum  and  maximum  number  of 
iterations 

17a2.  NUMINC,  PERERR  -number  of  increments( intervals) 

between  reversals,  and  the  percent  error  indicating 
the  maximum  amount  of  change  in  prescribed  values 
allowed  before  convergence  is  assumed 
17a3.  STNINC,  STSINC,  ANEINC  -increments  for  strain, 

stress,  and  Neuber  calculations  to  be  used  during 
integrating  between  reversals:  The  Neuber  increment 
is  to  be  the  increment  in  the  net  section  stress 

17b.  if  line  17  is  10  then  include  the  following  3  lines 
17bl.  MINIT,  MAXIT  -same  as  17al 
17b2.  PERERR  —same  as  PERERR  in  line  17a2 
17b3.  STNINC,  STSINC,  ANEINC  -same  as  17a3 

18.  Reorder  input  load  history  -one  of  the  three  values  0,  1,  2 
0  =do  not  rearrange 

1  =rearrange  starting  with  lowest  valley 
_ 2  =rearrange  starting  with  highest  peak _ 
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B.2.0  SAMPLE  RUNS 
B.2.1  Introduction 

The  program  computed  the  local  stress— strain  history  for  uniaxial 
loading.  The  program  accessed  two  input  files,  and  may  create  up  to  three 
output  files.  There  was  no  interactive  input/output  with  the  program.  All 
information  to/from  the  program  was  through  files. 

The  two  input  files  were  both  required  for  the  program  to  execute. 
The  first  was  named  “INPUT”  and  contains  the  parameters  that  control  the 
programs  execution  described  above.  The  second  was  the  file  that  contained 
the  normalized  stress,  or  strain  peak/valley  sequence  loading  history.  The 
name  of  this  file  was,assigned  in  the  file  “INPUT”.  If  either  of  these 
files  was  missing,  an  error  condition  was  reported  in  a  file  named  “OUTPUT”. 

Of  the  three  output  files,  two  were  always  produced  by  the-  program. 
The  third  output  file  was  produced  as  an  option  by  the  user.  The  first 
default  output  file  was  named  “OUTPUT”.  The  input  parameters,  from  file 
“INPUT”,  were  echoed  to  this  file.  Also,  any  error  messages  appeared  in 
this  file.  The  second  default  file  contained  the  reversals  for  the  complete 
local  stress-strain  peak/valley  history  in  sequence.  The  second  default 
output  file  was  assigned  its  name  in  the  file  “INPUT”  during  execution  by 
the  user.  Failure  to  supply  a  name  resulted  in  an  error  condition  which  was 
reported  in  the  file  “OUTPUT”.  Also,  in  the  second  output  file,  a  summary 
of  the  computational  progress  of  the  program  from  reversal  to  reversal  was 
given.  Also,  if  the  numerical  routines  do  not  converge,  an  error  code  was 
included  at  the  current  stress-strain  value  where  the  error  occurred  as  the 
last  reported  values  in  this  file.  The  results  of  the  second  output  file 
were  useful  for  cycle  counting  and  fatigue  computations.  The  third  output 
file  was  optional  and  included  the  values  of  each  stress-strain  value 
computed  in  sequence.  This  file’s  information  was  useful  for  plotting  the 
complete  local  stress— strain  history. 
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B,2.2  Example  Problems  and  Input  Files 

Three  example  problems  were  given.  The  first  was  a  stress  control 
simulation.  The  other  two  were  one  each  of  a  strain  and  a  Neuber  control 
simulation.  Each  example  contained  10  full  cycles  plus  two  half  cycles. 

The  first  half  cycle  was  to  the  first  reversal,  and  the  last  half  cycle  was 
to  the  final  reversal.  The  loading  rates  in  the  three  examples  were  picked 
so  that  the  stress  and  strain  rates  during  elastic  loading  were  nearly 
identical.  Also,  the  input  load  history  reversal  points  were  picked  to 
produce  similar  values  for  the  initial  reversal  stress/strain  level  and 
subsequent  cyclic  stress/strain  ranges  where  possible.  The  input  files  for 
the  three  problems  are  given  below. 

Also,  comments  were  included  in  the  input  files.  Comments  may  be 
included  anywhere  after  the  required  input  on  a  line  or  following  the  last 
required  line  in  the  input  file  “INPUT”.  In  the  file  “Input”,  parameters 
that  were  character  strings  such  as  file  names  and  descriptive  headings  must 
be  enclosed  in  single  quotes.  In  both  of  the  input  files,  the  values  were 
read  using  list  directed  free  format.  The  file  that  contained  the  input 
loading  history  must  contain  one  value  per  line  in  sequence.  The  output  for 
the  example  problems  were  given  in  the  next*  section. 
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’Stress  control  example.’ 

’stsrOS’ 

2 

’Walker  constants  in  ksi’ 

1 

25920 . 3 

0.0  16.95  1.16 

0.0  300000.0  8000.0 
0.0  l.Oe-14  0.0 

l.Oe-14  50.931  0.0 

’R=0.183  stress  history’ 

’stsh03’ 

75.8 

1 

207 

1 

’stsg03’ 

11 
0 

Comments  may  be  placed  after  the  last  required  entry  on  a 
line,  or  below  the  last  required  line. 

These  areas  are  not  read  by  the  program. 

Figure  B.l .  Stress  control :  parameter  input  file 
“INPUT”. 


1000 
-183 
1000 
-183 
1000 
-183 
1000 
-183 
1000 
-183 
1000 
-183 
1000 
-183 
1000 
■  -183 
1000 
-183 
1000 
-183 
1000 
-183 

Figure  B.2.  Stress  control;  history  input  file 
’STSH03’ . 


Iteml : Problem  heading 
Item2:Local  peak/valley  file  out 
Item3: Stress  control 
Item4: Material  identification 
Item5 :Unit  system, kip, ksi , in/in , s 
Item6 : Elastic  modulus,  ksi 
Item7:0mega0,  ksi;  N;  M 
Items :N1;  N2,  ksi;  N3 
Item9:N4,  N5,  N6  . 

ItemlO:N7;  Kl,  ksi;  K2 
Itemll zHistory  title 
Iteml2: peak/valley  history  in 
Iteml3:Max  excursion  from  0,  ksi 
Iteml4;Find  input  max  excursion 
Iteml5; loading  rate,  ksi/s 
Iteml6:All  of  stress-strain  out 
Iteml6A:File  complete  history  out 
Iteml7:Default  fine  step  length 
Iteml8:do  not  reorder  history  in.' 
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’Strain  control  example.’ 
’stnr02’ 

1 

’Walker  constants  in  ksi’ 
1 

25920 . 3 
0.0 
0.0 
0.0 


Iteml : Problem  heading 
Item2:Local  peak/valley  file  out 
Items ; Strain  control 
Item4: Material  identification 
Item5:Unit  system, kip, ksi , in/in,s 
ItemG: Elastic  modulus,  ksi 
Item7:0mega0,  ksi;  N;  M 
ItemSiNl;  N2,  ksi;  N3 
Item9:N4,  N5,  N6 
Iteml0:N7;  Kl,  ksi;  K2 
Itemll :History  title 
Iteml2: peak/valley  history  in 
Iteml3:Max  excursion  from  0 
Iteml4:Find  input  max  excursion 
Iteml 5: loading  rate, in/in/s 
Iteml6:All  of  stress-strain  out 
Iteml6A:File  complete  history  out 
Iteml7: Default  fine  step  length 
Iteml8:do  not  reorder  history  in 
Comments  may  be  placed  after  the  last  required  entry  on  a 
line  or  below  the  last  required  line  of  the  file  Input  file. 
These  areas  are  not  read  by  the  program. 

Figure  B.3.  Strain  control ;  parameter  input  file 
“INPUT” . 


16.95  1.16 

300000.0  8000.0 
l.Oe-14  0.0 

l.Oe-14  50.931  0.0 

’R=0.5  strain  history’ 

’ stnh02 ’ 

0.007 

1 

0.008 

1 

’stng02’ 

11 

0 


2 

1 

2 

1 

2 

1 

2 

1 

2 

1  . 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

Figure  B.4.  Strain  control history  input  file 
’STNH02’ . 
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Iteml : Problem  heading 
Item2:Local  peak/valley  file  out 
Item3:Neuber  control 
Item3a;kt 

Item4: Material  identification 
Item5;Unit  system, kip, ksi , in/in,s 
Item6: Elastic  modulus,  ksi 
Item?: OmegaO,  ksi;  N;  M 
Item8:Nl;  N2,  ksi;  N3 
Item9:N4,  N5,  N6 
ItemlO:N7;  Kl,  ksi;  K2 
Iteml 1: History  title 
Iteml2: peak/valley  history  in 
Iteml3;Max  excursion  from  0,  ksi 
Iteml4:Find  input  max  excursion 
Iteml5: loading  rate,  ksi/s 
Iteml6:All  of  stress-strain  out 
Iteml6A:File  complete  history  out 
ItemlT: Default  fine  step  length 
Iteml8:do  not  reorder  history  in. 
Comments  placed  after  last  required  line  entry,  or  below  the 
last  required  line.  These  areas  are  not  read  by  the  program. 
Figure  B.5.  Neuber  control ;  parameter  input  file 
“INPUT”. 


’Neuber  control  example. 
’neur04’ 

.0 

’Walker  constants  in  ksi 
1 

25920 . 3 

0.0  16.95  1.16 

0.0  300000.0  8000.0 
0.0  l.Oe-14  0.0 

l.Oe-14  50.931  0.0 

’R=0.2355  Load  history’ 
’lodh04’ 

58.6 

1 

104 

1 

’neug04’ 

11 
0 


500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

500.00 

117.75 

Figure  B.6.  Neuber  control ;  history  input  file. 

’LnDH04’ . 


151 


NAWCADWAR  95033-4.3 


B,2.3  FiXample  ^  s  Ou'bpu'ts  ^  Result.s  and  Discussion 

The  following  nine  figures  and  three  tables  detail  the  results  of 
the  three  example  computer  runs  for  the  three  test  cases  described  above. 

The  nine  figures  contain  the  actual  information  as  outputted  by  the 
computer.  The  three  tables  explain  the  arrangement  of  the  output  files 
columns.  The  outputs  for  the  three  examples  of  stress,  strain,  and  Neuber 
control  were  given  in  order.  For  each  test  case,  the  two  default  output 
files,  “OUTPUT”  followed  by  the  local  stress-strain  reversal  file,  were 
given.  Next,  for  the  same  test  case,  the  optional  output  file  giving  the 
values  of  every  stress-strain  value  computed  in  sequence  was  listed. 

Figures  B.7,  B.8,  and  B.9  are  for  the  stress  control  case  and  will  be 
described  in  detail.  The  first.  Figure  B.7,  displays  the  contents  of  the 
file  “OUTPUT”  which  was  produced  by  default.  This  file  echoed  the 
information  given  in  the  input  file  “INPUT”.  As  this  information  was 
echoed,  a  description  of  what  the  program  had  assigned  the  value  was  given. 
Also,  a  description  of  any  errors  were  given  in  this  file  that  relate  to  the 
information  read  from  the  file  “INPUT”  or  involve  the  opening  of  the 
discussed  input/output  files.  Figure  B.8  contains  the  values  of  the  local 
stress-strain  reversal  points  computed  which  was  produced  by  default.  Since 
the  input  load  history  was  designed  to  have  10  full  cycles  and  2  half 
cycles,  this  file  had  22  computed  reversals.  This  file  also  listed  a  zero, 
“0”,  reversal  where  all  values  were  assumed  to  begin  from  zero.  The 
reversal  file  had  9  columns.  The  quantities  in  each  column  are  described  in 

Table  B.3. 

There  were  a  total  of  8  possible  error  codes  that  may  appear  in  the 
reversal  file  encoded  as  a  two  digit  number.  The  error  code  encoding  was 
given  in  Table  B.4.  The  reversal  file  was  designed  to  be  used  as  input  into 
a  cycle  counting  and  fatigue  damage  routine. 

The  final  output  file  for  the  stress  control  example  was  the 
optional  output  file  which  was  listed  in  Figure  B.9.  This  file,  using  the 
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assumption  that  all  values  start  at  zero,  listed  an  initial  zero,  “0”,  for 
each  item  tabulated.  This  optional  file  contained  the  value  of  each  stress- 
strain  value  computed  and  listed  sequentially  in  time.  Therefore,  the 
details  of  the  complete  stress-strain  path  traversed  was  made  available  for 
uses  such  as  plotting.  This  optional  file  may  be  very  large.  For  this 
reason,  only  the  beginning  of  this  file  was  listed  for  each  of  the  three 
test  cases.  This  optional  file  for  the  stress  control  case  had  3  columns. 
The  quantities  in  each  column,  for  the  optional  file,  were  described  in 
Table  B.5. 

The  results  for  the  strain  control  example  were  given  in  Figures 
B.IO,  B.ll,  and  B.12.  The  results  of  the  Neuber  control  example  were  given  in 
Figures  B.13,  B.14,  and  B.15.  The  same  discussions  for  the  stress  control 
case  applies  to  the  corresponding  output  files  for  both  the  strain  and 
Neuber  control  examples.  The  only  exception  for  Neuber  control  produced  a 
fourth  column  of  values  in  the  optional  file  which  is  listed  in  Figure  B.15. 
The  extra  column  that  was  produced  in  this  file  for  Neuber  control 
calculations  was  also  described  in  Table  B.5. 
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0  PROBLEM  HEADING: 

Stress  control  example. 

0  FILENAME  FOR  OUTPUT  OF  RESULTING 

STRESS-STRAIN  HISTORY: =stsr03 
0  PARAMETER  INDICATING  THE  TYPE  OF  CONTROL; 

STRAIN,  STRESS,  OR  NEUBER:=  2 

0  SPECIMEN  TITLE: 

Walker  constants  in  ksi 


0  PARAMETER  INDICATING  THE  SYSTEM  OF 
UNITS :=  1 

0  MODULUS  OF  ELASTICITY, E: 

0  WALKER’S  CONSTANTS:  • 

EQUILIBRIUM  STRESS 
N 


25920 . 30000000000 


M 

0  WALKER’S  CONSTANTS: 
N1 
N2 
N3 

0  WALKER’S  CONSTANTS: 
N4  '  ' 

N5 
N6 

0  WALKER’S 
N7 
K1 
K2 


CONSTANTS: 


CONST ANT=  0 . OOOOOOOOOOOOOOOOE+00 
=  16.95000000000000 

=  1 . 160000000000000 


=  O.OOOOOOOOOOOOOOOOE+00 
=  300000.0000000000 

=  8000 . 000000000000 

=  0 . OOOOOOOOOOOOOOOOE+00 

=  1 . 0000000000000002E- 14 

=  O.OOOOOOOOOOOOOOOOE+00 

=  1 . 0000000000000002E- 14 

=  50.93100000000000 

=  O.OOOOOOOOOOOOOOOOE+00 


Figure  B.7.  Stress  control :  default  input  echo  and 
error  message  output  f i le  “OUTPUT” . 
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0  HISTORY  TITLE; 

R=0.183  stress  history 
0  FILENAME  WITH  NORMALIZED  INPUT 
HISTORY: =stsh03 

0  MAGNITUDE  OF  MAXIMUM  AMPLITUDE  FROM  ZERO  TO 
SCALE  HISTORY  TO:=  75.80000000000000 
0  PARAMETER  CONTROLLING  THE  AUTOMATED  SCANNING 
OF  HISTORY  TO  DETERMINE  LARGEST 
AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK 
OR  VALLEY  N0/YES(0/1) :=  1 

0  LOADING  RATE:=  207.0000000000000 
0  PARAMETER  INDICATING  GRAPHIC  OUTPUT  DATA 
YES/NO :=  1 

0  NAME  OF  GRAPHIC  OUTPUT  DATA 
FILE:=stsg03 

0  PARAMETER  CONTROLLING  THE  SELECTION  OF 
CONVERGENCE  PARAMETERS;  NUMBER  OF 
ITERATIONS,  NUMBER  OF  STEPS,  STEP  SIZE, 
ETC.:=  11 

0  PARAMETER  CONTROLLING  REARRANGEMENT  OF 
HISTORY :=  0 


Figure  B.7  CONTINUED.  Stress  control;  default 

input  echo  and  error  message  output 
file  “OUTPUT” . 
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0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 


0 . OOOOOOOOOOOOOD+00  0.0000000  0.000  0  0 

0.3661835748792D+00  0.0033894  75.800  38  4  33  73  0 

0.7993787439614D+00  0.0000014  -13.871  45  3  17  51  0 

0.1232573913043D+01  0.0038466  75.800  45  3  18  34  0 

0.1665769082126D+01  0.0004597  -13.871  45  3  16  47  0 

0.2098964251208D+01  0.0043054  75.800  45  3  18  34  0 

0.2532159420290D+01  0.0009195  -13.871  45  3  16  44  0 

0.2965354589372D+01  0.0047657  75.800  45  3  18  34  0 

0,33985497584540+01  0.0013803  -13.871  45  3  15  42  0 

0. 38317449275360+01  0.0052267  75.800  45  3  18  34  0 

0.42649400966180+01  0.0018427  -13.871  45  3  15  40  0 

0.46981352657010+01  0.0056896  75.800  45  3  17  34  0 

0.51313304347830+01  0.0023063  -13.871  45  3  15  39  0 

0.55645256038650+01  0.0061534  75.800  45  3  17  34  0 

0.59977207729470+01  0,0027709  -13.871  45  3  15  38  0 

0.64309159420290+01  0.0066184  75.800  45  3  17  34  0 

0.68641111111110+01  0.0032363  -13,871  45  3  15  37  0 

0.72973062801930+01  0.0070841  75.800  45  3  17  34  0 

0.77305014492750+01  0.0037024  -13.871  45  3  15  36  0 

0.81636966183580+01  0.0075502  75.800  45  3  17  34  0 

0.85968917874400+01  0.0041694  -13.871  45  2  14  35  0 

0.90300869565220+01  0.0080173  75.800  45  3  17  34  0 

0.94632821256040+01  0.0046376  -13.871  45  2  14  34  0 

Figure  B.8.  Stress  control ;  default  local  reversal 
output  file  ’STSR03’ . 
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0 . OOOOOOOOOOOOOD+00 

0.0000000 

0.000 

0 . 9636409865243D-02 

0.0000770 

1.995 

0. 1927281973049D-01 

0.0001539 

3.989 

0 . 2890922959573D-01 

0.0002309 

5.984 

0 . 3854563946097D-01 

0.0003078 

7.979 

0 . 4818204932621D-01 

0.0003848 

9.974 

0.5781845919146D-01 

0.0004617 

11.968 

0.6745486905670D-01 

0.0005387 

13.963 

0 . 7709127892194D-01 

0.0006157 

15.958 

0.8672768878719D-01 

0.0006926 

17.953 

0 . 9636409865243D-01 

0.0007696 

19.947 

0 . 1060005085177D+00 

0.0008465 

21.942 

0.1156369183829D+00 

0.0009235 

23.937 

0 . 1252733282482D+00 

0.0010005 

25.932 

0.1349097381134D+00 

0.0010777 

27.926 

0 . 1445461479786D+00 

0.0011552 

29.921 

0.1541825578439D+00 

0.0012337 

31.916 

0.1638189677091D+00 

0.0013139 

33.911 

0.1734553775744D+00 

0.0013958 

35.905 

0.1830917874396D+00 

0.0014790 

37.900 

0 . 1927281973049D+00 

0.0015630 

39.895 

Figure  B.9.  Stress  control:  optional  local  path  ^ 

stress -strain  output  file  ’STSG03’ . 
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TABLE  B.4.  Error  Code  Encoding  for  Reversal  File^. 


Values 

Error  Description 

3 

Stress  did  not  converge 

4 

Plastic  strain  did  not  converge 

A 

5 

Equilibrium  stress  did  not  converge 

6 

Total  strain  did  not  converge 

D 

1 

Mostly  elastic  behavior 

O 

2 

Mostly  plastic  behavior 

%ote:  Error  Code  =  A  x  10^  +  B  x  10®  , 

Example;  32  =  The  stress  did  not  converge  and 
mostly  plastic  behavior. 


TABLE  B.5.  Listing  of  Values  in  Optional  File. 


Column 

Description 

1 

-“Current  time. 

2 

—Local  strain. 

3 

-Local  stress. 

4 

-Net  section  nominal  stress.  Only  appears  for  the  case 
of  Neuber  control. 
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0  PROBLEM  HEADING: 

Strain  control  example. 

0  FILENAME  FOR  OUTPUT  OF  RESULTING 

STRESS-STRAIN  HISTORY :=stnr02 
0  PARAMETER  INDICATING  THE  TYPE  OF  CONTROL; 

STRAIN,  STRESS,  OR  NEUBER:=  1 

0  SPECIMEN  TITLE: 

Walker  constants  in  ksi 
0  PARAMETER  INDICATING  THE  SYSTEM  OF 
UNITS :=  1 

0  MODULUS  OF  ELASTICITY,E:=  25920.30000000000 
0  WALKER’S  CONSTANTS: 

EQUILIBRIUM  STRESS  CONSTANT=  0 . OOOOOOOOOOOOOOOOE+00 


N 

16.95000000000000 

M 

= 

1 . 160000000000000 

0 

WALKER’S 

CONSTANTS: 

N1 

0 . OOOOOOOOOOOOOOOOE+00 

N2 

= 

300000.0000000000 

N3 

8000.000000000000 

0 

WALKER’S 

CONSTANTS: 

N4 

= 

0 . OOOOOOOOOOOOOOOOE+00 

N5 

= 

1 . 0000000000000002E- 14 

N6 

= 

0 . OOOOOOOOOOOOOOOOE+00 

0 

WALKER’S 

CONSTANTS: 

N7 

= 

1 .0000000000000002E-14 

K1 

50.93100000000000 

K2 

= 

0 . OOOOOOOOOOOOOOOOE+00 

Figure  B.IO.  Strain  control :  default  input  echo  and 
error  message  output  f i le  “OUTPUT” . 
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0  HISTORY  TITLE: 

R=0.5  strain  history 
0  FILENAME  WITH  NORMALIZED  INPUT 
HISTORY: =stnh02 

0  MAGNITUDE  OF  MAXIMUM  AMPLITUDE  FROM  ZERO  TO 

SCALE  HISTORY  T0:=  6.9999999999999993E-03 

0  PARAMETER  CONTROLLING  THE  AUTOMATED  SCANNING 
OF  HISTORY  TO  DETERMINE  LARGEST 
AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK 
OR  VALLEY  N0/YES(0/1) :=  1 

0  LOADING  RATE:=  8.0000000000000002E-03 
0  PARAMETER  INDICATING  GRAPHIC  OUTPUT  DATA 
YES/NO :=  1 

0  NAME  OF  GRAPHIC  OUTPUT  DATA 
FILE:=stng02 

0  PARAMETER  CONTROLLING  THE  SELECTION  OF 
CONVERGENCE  PARAMETERS;  NUMBER  OF 
ITERATIONS,  NUMBER  OF  STEPS,  STEP  SIZE, 

ETC  *  =  11 

0  PARAMETER  CONTROLLING  REARRANGEMENT  OF 
HISTORY: =  0 


Figure  B.IO  CONTINUED.  Strain  control:  default 
input  echo  and  error  message  output 
file  “OUTPUT”. 


NAWCADWAR  95033-4.3 


0 

0 . OOOOOOOOOOOOOD+00 

0.0000000 

0.000 

0 

0 

1 

0 . 8750000000000D+00 

0.0070000 

75.806 

70 

2 

17 

73 

0 

2 

0 . 1312500000000D+01 

0.0035000 

-15.449 

36 

2 

15 

30 

0 

3 

0.1750000000000D+01 

0.0070000 

69.788 

36 

3 

18 

35 

0 

4 

0.2187500000000D+01 

0.0035000 

-20.340 

36 

2 

16 

32 

0 

5 

0.2625000000000D+01 

0.0070000 

66.105 

36 

4 

19 

38 

0 

6 

0 . 3062500000000D+01 

0.0035000 

-23.740 

36 

4 

17 

41 

0 

7 

0.3500000000000D+01 

0.0070000 

63.297 

36 

4 

20 

40 

0 

8 

0.3937500000000D+01 

0.0035000 

-26.393 

36 

4 

18 

59 

0 

9 

0.4375000000000D+01 

0.0070000 

61.012 

36 

4 

21 

42 

0 

10 

0 . 4812500000000D+01 

0.0035000 

-28.569 

36 

4 

18 

37 

0 

11 

0,52500000000000+01 

0.0070000 

59.093 

36 

4 

23 

46 

0 

12 

0. 56875000000000+01 

0.0035000 

-30.403 

36 

4 

19 

40 

0 

13 

0.61250000000000+01 

0.0070000 

57.449 

36 

3 

24 

51 

0 

14 

0.65625000000000+01 

0.0035000 

-31.975 

36 

4 

19 

45 

0 

15 

0.70000000000000+01 

0.0070000 

56.024 

36 

4 

30 

80 

0 

16 

0 . 74375000000000+01 

0.0035000 

-33.340 

36 

4 

20 

49 

0 

17 

0.78750000000000+01 

0.0070000 

54.777 

36 

4 

26 

70 

0 

18 

0.83125000000000+01 

0.0035000 

-34.535 

36 

2 

20 

46 

0 

19 

0.87500000000000+01 

0.0070000 

53.679 

36 

4 

24 

51 

0 

20 
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Figure  B.ll.  Strain  control :  default  local  reversal 
output  file  ’STNR02’ . 
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0 . OOOOOOOOOOOOOD+00 
0.1250000000000D-01 
0 . 2500000000000D-01 
0.3750000000000D-01 
0 . 5000000000000D-01 
0 . 6250000000000D-01 
0 . 7500000000000D-01 
0.8750000000000D-01 
O.lOOOOOOOOOOOOD+00 
0.1125000000000D+00 
0. 1250000000000D+00 
0 . 1375000000000D+00 
0 . 1500000000000D+00 
0 . 1625000000000D+00 
0 . 1750000000000D+00 
0. 1875000000000D+00 
0 . 2000000000000D+00 
0 . 2125000000000D+00 
0 . 2250000000000D+00 
0 . 2375000000000D+00 
0 . 2500000000000D+00 


0.0000000 

0.000 

0.0001000 

2.592 

0.0002000 

5.184 

0.0003000 

7.776 

0.0004000 

10.368 

0.0005000 

12.960 

0.0006000 

15.552 

0.0007000 

18.144 

0.0008000 

20.736 

0.0009000 

23.328 

0.0010000 

25.919 

0.0011000 

28.503 

0.0012000 

31.064 

0.0013000 

33.569 

0.0014000 

36.003 

0.0015000 

38.390 

0.0016000 

40.752 

0.0017000 

43.097 

0.0018000 

45.423 

0.0019000 

47.730 

0 . 0020000 

50.014 

Figure  B.12.  Strain  control ;  optional  local  path  of 
stress -strain  output  file  ’ STNG02 ’ . 
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0  PROBLEM  HEADING: 

Neuber  control  example. 

0  FILENAME  FOR  OUTPUT  OF  RESULTING 

STRESS-STRAIN  HISTORY : =neur04 
0  PARAMETER  INDICATING  THE  TYPE  OF  CONTROL; 

STRAIN,  STRESS,  OR  NEUBER :=  3 

0  ELASTIC  STRESS  CONCENTRATION 

FACTOR :=  2.000000000000000 


0  SPECIMEN  TITLE: 

Walker  constants  in  ksi 
0  PARAMETER  INDICATING  THE  SYSTEM  OF 
UNITS :=  1 

0  MODULUS  OF  ELASTICITY,E:=  25920.30000000000 
0  WALKER’S  CONSTANTS: 

EQUILIBRIUM  STRESS  CONSTANT= 

N 


M 


0 


WALKER’S 
N1 
N2 
N3 

0  WALKER’S 
N4 
N5 
N6 

0  WALKER’S 
N7 
K1 
K2 


CONSTANTS i 


CONSTANTS : 


CONSTANTS : 


0 . OOOOOOOOOOOOOOOOE+00 
16.95000000000000 
1.160000000000000 


0 . OOOOOOOOOOOOOOOOE+00 
300000.0000000000 
8000.000000000000 

0 . OOOOOOOOOOOOOOOOE+00 
1 .0000000000000002E-14 
0 . OOOOOOOOOOOOOOOOE+00 

1 .0000000000000002E-14 
50.93100000000000 
0 . OOOOOOOOOOOOOOOOE+00 


Figure  B.13.  Neuber  control ;  default  input  echo  and 
error  message  output  file  “OUTPUT” . 
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0  HISTORY  TITLE: 

R=0.2355  Load  history 
0  FILENAME  WITH  NORMALIZED  INPUT 
HISTORY: =lodh04 

0  MAGNITUDE  OF  MAXIMUM  AMPLITUDE  FROM  ZERO  TO 
SCALE  HISTORY  T0:=  58.60000000000000 

0  PARAMETER  CONTROLLING  THE  AUTOMATED  SCANNING 
OF  HISTORY  TO  DETERMINE  LARGEST 
AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK 
OR  VALLEY  N0/YES(0/1) :=  1 

0  LOADING  RATE:=  104.0000000000000 
0  PARAMETER  INDICATING  GRAPHIC  OUTPUT  DATA 
YES/NO :=  1 

0  NAME  OF  GRAPHIC  OUTPUT  DATA 
FILE:=neug04 

0  PARAMETER  CONTROLLING  THE  SELECTION  OF 
CONVERGENCE  PARAMETERS;  NUMBER  OF 
ITERATIONS,  NUMBER  OF  STEPS,  STEP  SIZE, 
ETC.:=  11 

0  PARAMETER  CONTROLLING  REARRANGEMENT  OF 
HISTORY :=  0 


Figure  B.13  CONTINUED.  Neuber  control ;  default 
input  echo  and  error  message  output- 
file  “OUTPUT”. 
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Figure  B.14.  Neuber  control ;  default  local  reversal 
output  file  ^ NEUR04 ^ . 
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O.OOOOOOOOOOOOOD+00 

0.0000000 

0.000 

0.000 

0 . 4775097783572D-02 

0.0000383 
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0.497 

0.9550195567145D-02 
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0.993 

0.1432529335072D-01 

0.0001150 
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Fiffure  B.15.  Neuber 

control:  oi 

jtional 

local  oath  of 

stress- 

strain  cutout  file 

’NEUG04’ . 
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B.3.0  PROGRAM  LISTING 


PROGRAM  MFATHS 

C23456789+123456789+223456789+323456789+423456789+523456789+623456789+72 
IMPLICIT  DOUBLE  PRECISI0N(A-H,0-Z) 

PARAMETER( NUMLET=6 ) 

CHARACTER=t<(NUMLET)  INNAM,OUTNAM 
PARAMETER( INNAM= ’ INPUT ’ , INNUM=5) 

PARAMETER^  OUTNAM= ’ OUTPUT ’ , 1 0TNUM=6 ) 

PARAMETER^ INHNU=20 , I0THNU=21 ) 

PARAMETER^ I0TGNU=22) 

PARAMETER^ IR0RNU=23) 

PARAMETER(MINIT1=2,MAXIT1=2000) 

PARAMETER( PERERR=0 . OIDO , ABSERR=PERERR/100 . ODO) 

C  STRAIN  INCREMENTS  MUST  BE  DIMENSIONLESS; 

C  STRESS  INCREMENTS  MUST  BE  IN  KSI. 

PARAMETER( FSNINC=0 . OOOIDO , FSSINC=2 . ODO , FNEINC=FSSINC/2 . ODO) 
PARAMETER( CSNINC=0 . 001 DO , CSSINC=20 . ODO , CNEINC=FNEINC ) 

PARAMETER^ IFNINC=24 , ICNINC=8 ) 

PARAMETER( NAMDIM=5 ) 

DIMENSION  AINCLN(2,3),INCCNT(2) 

CHARACTER* ( NUMLET )  NAMF I L ( NAMD IM ) 

DIMENSION  NUMFIL(NAMDIM) 

COMMON  /C0NVER/MINIT2 ,MAXIT2 , CONERR,ELSCON , DCCON , DMCON 
COMMON  /WALCON/EOSTS , AN 1 , AN2 , AN3 , AN4 , AKl , E , Y5 , Y7 , YK2 , YM 1 , YM2 , 

$  YN1,YN2 

COMMON  /DTCONS/Zl , Z3 , Z4 , Z5 , Z7 , AN6 , Z8 

COMMON  /GEO/ AKT , HISCLE , RATELD , AMPMAG , NEUTYP , lUNITS , lORDER , ISCAN 
COMMON  /STPCON/ I ALTER , NUMINC , STNINC , STSINC , ANEINC 
COMMON  /ODRPOS/LMIN,LMAX 

DATA  (AINCLN(1,I),I=1,3)/FSNINC,FSSINC,FNEINC/ 

DATA  ( AINCLN (2, I), 1=1, 3) /CSNINC , CSSINC , CNEINC/ 

DATA  (INCCNT(I),I=1,2)/IFNINC,ICNINC/ 

DATA  ( NUMF I L ( I ) , I = 1 , 5 ) / I NNUM , I OTNUM , I NHNU , I OTHNU , I OTGNU/ 

DATA  (NAMFIL(I),I=1,5)/INNAM,0UTNAM,3*’  ’/ 

MINIT2=MINIT1 

MAXIT2=MAXIT1 

CONERR=ABSERR 

CALL  VALUES ( NUMFIL ( 1 ) , NAMFIL( 1 ) , NAMDIM , AINCLN( 1,1), INCCNT( 1 ) ) 

CALL  SCAN(NUMFIL(3) ,AMAX,AMIN,AMAG) 

CALL  SCLFAC(HISCLE,AMAG, FACTOR) 

CALL  RE0RDR(NUMFIL(3),IR0RNU, FACTOR) 

IF(NEUTYP.EQ.1)THEN 

CALL  STRA I N ( I RORNU , NUMFI L ( 4 ) , NAMFI L ( 5 ) ) 

ELSE I F ( NEUTYP . EQ . 2 ) THEN 

CALL  STRESS(IR0RNU,NUMFIL(4) ,NAMFIL(5)) 

ELSEI F ( NEUTYP . EQ . 3 )THEN 

CALL  NEUBER(IR0RNU,NUMFIL(4),NAMFIL(5)) 


168 


NAWCADWAR  95033-4.3 


ENDIF 

STOP 

END 

SUBROUTINE  VALUES(NUMFIL,NAMFIL,NAMDIM,AINCLN,INCCNT) 

IMPLICIT  DOUBLE  PRECISI0N(A-H,0-Z) 

PARAMETER( ITEXT=70 ) 

C 

C***  FOR  THE  NADC  COMPUTER,  REMOVE  THE  COMMENT  CHARACTER  TO  INCLUDE 
C***  THE  FOLLOWING  LINE  TWO  LINES.  FOR  ALL  OTHER  COMPUTERS, 

C***  THESE  TWO  LINES  SHOULD  COMMENTED  OUT! 

C 

C  PARAMETER(NUMLET=6) 

C  CHARACTER*NUMLET  NAMFIL(NAMDIM) 

C 

C 

C***  FOR  THE  NADC  COMPUTER,  COMMENT  OUT  THE  FOLLOWING  LINE.  FOR  ALL 
C***  OTHER  COMPUTERS,  THE  FOLLOWING  LINE  SHOULD  BE  INCLUDED  BY 
C***  REMOVING  THE  COMMENT  CHARACTER! 

C 

CHARACTER*(*)  NAMFIL(NAMDIM) 

C 

DIMENSION  AINCLN(2,*),INCCNT(*) 

DIMENSION  NUMFIL(NAMDIM) 

COMMON  /CONVER/MINITl , MAXITl , CONERR , ELSCON , DCCON , DMCON 
COMMON  / WALCON/EOSTS , ANl , AN2 , AN3 , AN4 , AK 1 , E , Y5 , Y7 , YK2 , YMl , YM2 , 

$  YN1,YN2 

COMMON  /DTCONS/Zl , Z3 , Z4 , Z5 , Z7 , AN6 , Z8 

COMMON  /GEO/AKT , HISCLE , RATELD , AMPMAG , NEUTYP , lUNITS , lORDER , ISCAN 
COMMON  /STPCON/IALTER,NUMINC,STNINC,STSINC,ANEINC 
CHARACTER* ( ITEXT )  HEAD , HISNAM , SPCNAM 
0PEN(UNIT=NUMFIL(2) ,FILE=NAMFIL(2) ,ERR=2600) 

0PEN(UNIT=NUMFIL(1) ,FILE=NAMFIL(1),ERR=2500,STATUS=’OLD> ) 
NAMFIL(5)=’  ’ 

IVAR=0 

C 

C***  ITEM  1 
C 

LINE=1 

READ(NUMFIL(1),*,ERR=100)HEAD 

IVAR=IVAR+1 

WRITE(NUMFIL(2),*)’0  PROBLEM  HEADING:’ 

WRITE(NUMFIL(2),*)’  ’,HEAD 

C 

C***  ITEM  2 
C 

LINE=LINE+1 

READ( NUMFI L ( 1 ) , ♦ , ERR=200 ) NAMFI L ( 4 ) 

IVAR=IVAR+1 
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VRITE(NUMFIL(2),*)’0  FILENAME  FOR  OUTPUT  OF  RESULTING’ 
VRITE(NUMFIL(2),=^)’  STRESS-STRAIN  HISTORY:=’ ,NAMFIL(4) 

0PEN(UNIT=NUMFIL(4) ,FILE=NAMFIL(4) ,ERR=300) 

VRITE(NUMFIL(4),*)’  ’”,HEAD,”” 

VRITE(NUMFIL(4) ,♦) ’  ”  ’ ,NAMFIL(4) ,  ”  ” 

C***  ITEM  3 
C 

LINE=LINE+1 

READ(NUMFIL(1) ,*,ERR=400)NEUTYP 
IVAR=IVAR+1 

WRITE(NUMFIL(2),^)’0  PARAMETER  INDICATING  THE  TYPE  OF  CONTROL;’ 
WRITE(NUMFIL(2),*)’  STRAIN,  STRESS,  OR  NEUBER : = ’ , NEUTYP 

C  WRITE ( NUMFI L ( 4 ) , * ) NEUTYP 

IF((NEUTYP.LT.1).0R.(NEUTYP.GT.3))  GOTO  500 
IF(NEUTYP.EQ.3)THEN 
C 

C*:(t*  ITEM  3A 
C 

LINE=LINE+1 

READ(NUMFIL( 1 ) , * ,ERR=600) AKT 

WRITE(NUMFIL(2),*)’0  ELASTIC  STRESS  CONCENTRATION’ 

VRITE( NUMFIL ( 2 ) , ♦ ) ’  FACTOR : = ’ , AKT 

IVAR=IVAR+1 

IF(AKT.LT.l.ODO)  GOTO  610 
C  WRITE( NUMFIL (4),*) AKT 

ENDIF 
C 

C**=tc  ITEM  4 
C 

LINE=LINE+1 

READ ( NUMFIL ( 1 ) , * , ERR=900 ) SPCNAM 
IVAR=IVAR+1 

VRITE(NUMFIL(2),:t=)’0  SPECIMEN  TITLE:’ 

VRITE(NUMFIL(2),*)’  ’, SPCNAM 

C  WRITE(NUMFIL(4),=«)’  ’”, SPCNAM,”” 

C 

C***  ITEM  5 
C 

LINE=LINE+1 

READ( NUMFIL (1),*,ERR=1000)IUNITS 
IVAR=IVAR+1 

WRITE(NUMFIL(2),*)’0  PARAMETER  INDICATING  THE  SYSTEM  OF’ 
WRITE(NUMFIL(2),*)’  UNITS :=’, lUNITS 

IF((IUNITS.LT.1).0R.(IUNITS.GT.2))  GOTO  1100 
C  VRITE(NUMFIL(4),=ic)IUNITS 

C 

C***  ITEM  6 
C 
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LINE=LINE+1 

READ(NUMFIL(1)  ,*,EIIR=1200)E 
IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  MODULUS  OF  ELASTICITY,E: =’ ,E 
IF(E.LE.O.ODO)  GOTO  1210 
C  VRITE(NUMFIL(4),*)E 

C 

ITEM  7 
C 

LINE=LINE+1 

READ  (  NUMFI L  ( 1 )  ,  =*• ,  ERR= 1 300  )  EOSTS ,  AN ,  AM 
IVAR=IVAR+3 

WRITE(NUMFIL(2),*)’0  WALKER”S  CONSTANTS:’ 
VRITE(NUMFIL(2),:t=)’  EQUILIBRIUM  STRESS  CONSTANT= 

VRITE(NUMFIL(2),*)’  N  =’ 

VRITE(NUMFIL(  2  ),=*■)’  M  =’ 

IF(AN.LT.l.ODO)  GOTO  1310 
IF(AM.LT.l.ODO)  GOTO  1320 
C  VRITE(NUMFIL(4),*)E0STS,AN,AM 

C 

C=t‘**  ITEM  8 
C 

LINE=LINE+1 

READ ( NUMFIL ( 1 ) , * , ERR= 1400 ) AN 1 , AN2 , AN3 
IVAR=IVAR+3 

VRITE(NUMFIL(2),*)’0  VALKER”S  CONSTANTS:’ 
VRITE(NUMFIL(2),*)’  N1  =’ 

WRITE(NUMFIL(2),*)’  N2  =’ 

WRITE(NUMFIL(2),*)’  N3  =’ 

IF(ANl.LT.O.ODO)  GOTO  1410 
IF(AN2.LT.0.0D0)  GOTO  1420 
IF(AN3.LT.0.0D0)  GOTO  1430 
C  VRITE(NUMFIL(4),=t<)ANl,AN2,AN3 

C 

C*=*:=*=  ITEM  9 
C 

LINE=LINE+1 

READ( NUMFI L ( 1 ),♦, ERR=1500 ) AN4 , AN5 , AN6 
IVAR=IVAR+3 

VRITE(NUMFIL(2),=t<)’0  VALKER”S  CONSTANTS:’ 
VRITE(NUMFIL(2),*)’  N4  =’ 

WRITE(NUMFIL(2),*)’  N5  =’ 

VRITE(NUMFIL(  2  ),=*=)’  N6  =’ 

IF(AN4.LT.0.0D0)  GOTO  1510 
IF(AN5.LE.O.ODO)  GOTO  1520 
IF(AN6.LT.0.0D0)  GOTO  1530 
C  VRITE(NUMFIL(4),*)AN4,AN5,AN6 

C 

C***  ITEM  10 


’ , EOSTS 

,AN 

,AM 


,AN1 

,AN2 

,AN3 


,AN4 

,AN5 

,AN6 
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C 

LINE=LINE+1 

READ( NUMFIL ( 1 ) , ♦ , ERR=1600 ) AN7 , AKl , AK2 
IVAR=IVAR+3 

VRITE(NUMFIL(2),*)’0  WALKER”S  CONSTANTS:’ 


WRITE(NUMFIL  (2  ),>*<)’ 

N7 

=  ’  ,AN7 

VRITE(NUMFIL(2),*)’ 

K1 

=’ ,AK1 

WRITE(NUMFIL(2),*)’ 

K2 

=  ’  ,AK2 

IF(AN7.LE.0.0D0)  GOTO 

1610 

IF(AK2.LT.0.0D0)  GOTO 

1630 

IF(AK1.LE.AK2)  GOTO 

1620 

IF((EOSTS.LE.(-1.0DO*AK1)).OR.(EOSTS.GE.AK1))  GOTO  1640 
C  VRITE(NUMFIL(4),=^)AN7,AK1,AK2 
Y5=-1.0D0=t=AN5 
Y7=-1.0D0*AN7 
YK2=-1.0D0*AK2 
YM1=AM-1.0D0 
YM2=AM-2.0D0 
YN1=1.0D0-1.0D0/AN 
YN2=-1.0D0/AN 
C 

C***  ITEM  11 
C 

LINE=LINE+1 

READ(NUMFIL(l),=t",ERR=1700)HISNAM 

IVAR=IVAR+1 

WRITE(NUMFIL(2),*)’0  HISTORY  TITLE:’ 

VRITE(NUMFIL(2),*)’  ’ ,HISNAM 

C  WRITE(NUMFIL(4),*)’  ’”,HISNAM,”” 

C 

C***  ITEM  12 
C 

LINE=LINE+1 

READ( NUMFIL ( 1 ),*, ERR=1800)NAMFIL(3) 

IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  FILENAME  WITH  NORMALIZED  INPUT’ 
WRITE(NUMFIL(2),*)’  HISTORY:=’ ,NAMFIL(3) 

C  WRITE(NUMFIL(4),*)’  ”  ’ ,NAMFIL(3) ,  ”  ” 

C 

C’i'+si'  ITEM  13 
C 

LINE=LINE+1 

READ ( NUMFIL (1),*,ERR=1 900) HISCLE 
IVAR=IVAR+1 

WRITE(NUMFIL(2),*)’0  MAGNITUDE  OF  MAXIMUM  AMPLITUDE  FROM  ZERO  TO’ 
WRITE(NUMFIL(2),>tc)’  SCALE  HISTORY  TO:  =  ’,HISCLE 

IF(HISCLE.LE.O.ODO)  GOTO  1905 
C  VRITE(NUMFIL(4),*)HISCLE 

C 
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C***  ITEM  14 
C 

LINE=LINE+1 

READ(NUMFIL(  1 ) ,  ,ERR=1906)ISCAN 
IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  PARAMETER  CONTROLLING  THE  AUTOMATED  SCANNING’ 
VRITE(NUMFIL(2),*)’  OF  HISTORY  TO  DETERMINE  LARGEST’ 

VRITE(NUMFIL(2),=i.)’  AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK’ 

VRITE(NUMFIL(2),*)’  OR  VALLEY  N0/YES(0/1) :=’ ,ISCAN 

IF((ISCAN.LT.O).OR. (ISCAN.GT.l))  GOTO  1907 
C  VRITE(NUMFIL(4),*)ISCAN 
IF(ISCAN.Eq.O)THEN 
C 

C***  ITEM  14A 
C 

LINE=LINE+1 

READ ( NUMFI L ( 1 ) , * , ERR= 1908 ) AMPMAG 
IVAR=IVAR+1 

VRITE(NUMFIL(2),=t=)’0  VALUE  OF  LARGEST  AMPLITUDE  MAGNITUDE’ 
VRITE(NUMFIL(2),>tc)’  FROM  ZERO  IN  HISTORY  OF  A  PEAK  OR’ 

VRITE(NUMFIL(2),=k)’  VALLEY  GIVEN  AS  USER  INPUT’ 

VRITE(NUMFIL(2),:t.)’  AS:  =  ’  , AMPMAG 

IF(AMPMAG.LE.O.ODO)  GOTO  1909 
C  VRITE(NUMFIL(4),*)AMPMAG 

ENDIF 
C 

ITEM  15 
C 

LINE=LINE+1 

READ(NUMFIL( 1 ) , * , ERR=1910)RATELD 
IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  LOADING  RATE : = ’ , RATELD 
IF(RATELD.LE.O.ODO)  GOTO  1920 
C  VRITE(NUMFIL(4),*)RATELD 

C 

C***  ITEM  16 
C 

LINE=LINE+1 

READ(NUMFIL( 1 ) , * ,ERR=1922) IGRAPH 
IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  PARAMETER  INDICATING  GRAPHIC  OUTPUT  DATA’ 
WRITE(NUMFIL(2),*)’  YES/NO:=’ ,IGRAPH 

IF(IGRAPH.LT.O.OR.IGRAPH.GT.l)  GOTO  1923 
C  VRITE(NUMFIL(4),*)IGRAPH 

IF(IGRAPH.EQ.1)THEN 
C 

C***  ITEM  16A 
C 

LINE=LINE+1 
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READ ( NUMFI L ( 1 ) , * , ERR= 1925 ) NAMFI L ( 5 ) 

IVAR=IVAR+1 

WRITE(NUMFIL(2),*)’0  NAME  OF  GRAPHIC  OUTPUT  DATA’ 
VRITE(NUMFIL(2) ,♦) ’  FILE;=’ ,NAMFIL(5) 

C  VRITE(NUMFIL(4),*)’  ”  ’ ,NAMFIL(5) ,  ”  ” 

ENDIF 

C 

C***  ITEM  17 
C 

LINE=LINE+1 

READ ( NUMFI L ( 1 ) , ♦ , ERR=2000 ) I ALTER 
IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  PARAMETER  CONTROLLING  THE  SELECTION  OF’ 
VRITE(NUMFIL(2),=t=)’  CONVERGENCE  PARAMETERS;  NUMBER  OF’ 

VRITE(NUMFIL(2),=tc)’  ITERATIONS,  NUMBER  OF  STEPS,  STEP  SIZE,’ 

VRITE(NUMFIL(2),*)’  ETC. :=’ ,IALTER 

C  WRITE(NUMFIL(4),*)IALTER 

IF(((IALTER.LT.O).OR.  (lALTER. GT. 12) )  .OR. 

$  ((lALTER.GT. 2). AND. (IALTER.lt. 10)))  GOTO  2100 

IF(IALTER.Eq.O)THEN 
C 

C***  ITEM  17A1 
C 

LINE=LINE+1 

READ(NUMFIL( 1 ) , * , ERR=2200)MINIT2 ,MAXIT2 
IVAR=IVAR+2 

VRITE(NUMFIL(2),*)’0  MINIMUM  NUMBER  OF  ITERATIONS :=’ ,MINIT2 
VRITE(NUMFIL(2),=*=)’  MAXIMUM  NUMBER  OF’ 

VRITE(NUMFIL( 2 ),=*.)’  ITERATIONS:  =  ’  ,MAXIT2 

IF((MINIT2. GE.MAXIT2). OR. (MINIT2.lt. MINITl))  GOTO  2210 
MINIT1=MINIT2 
MAXIT1=MAXIT2 

C  VRITE(NUMFIL(4),4=)MINIT1,MAXIT1 

C 

C***  ITEM  17A2 
C 

LINE=LINE+1 

READ( NUMFIL(  1 )  ,  ,  ERR=2300 ) NUMINC ,  PERERR 
IVAR=IVAR+2 

VRITE(NUMFIL(2),>t‘)’0  NUMBER  OF  INCREMENTS:  =  ’ ,NUMINC 
VRITE(NUMFIL(2),*)’  percent  error  FOR’ 

WRITE ( NUMFI L  ( 2 )  ,  *  )  ’  CONVERGENCE :  =  ’ ,  PERERR ,  ’  7.  ’ 

IF((NUMINC. LE.O). OR. (PERERR. LE.O))  GOTO  2310 
C  VRITE(NUMFIL(4) ,*)NUMINC, PERERR 

CONERR= PERERR/ 100 . ODO 
C 

C***  ITEM  17A3 
C 

LINE=LINE+1 
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READ( NUMFIL( 1 ),*, ERR=2320 )STNINC , STSINC , ANEINC 
IVAR=IVAR+3 

VRITE(NUMFIL(2),=f)’0  STRAIN  INCREMENT:  =  ’ ,STNINC 
VRITE(NUMFIL(2),*)’  STRESS  INCREMENT: =’ ,STS INC 

WRITE(NUMFIL(2),*)’  NEUBER  INCREMENT:=’ , ANEINC 

IF((STNINC.LE.O). OR. (STSINC. LE.O). OR. (ANEINC. LE.O))  GOTO  2330 
C  VRITE(NUMFIL(4),=^)STNINC, STSINC, ANEINC 

ELSEIF( lALTER. EQ . 1 )THEN 
C  VRITE(NUMFIL(4),>t=)MINITl,MAXITl 

NUMINC=INCCNT(1) 

C  VRITE(NUMFIL(4),:4=)NUMINC,CONERR*100.0 

STNINC=AINCLN(1,1) 

STSINC=AINCLN(1,2) 

ANEINC=AINCLN(1,3) 

C  VRITE(NUMFIL(4),=*c)STNINC, STSINC, ANEINC 

ELSEIF(IALTER.EQ.2)THEN 
C  VRITE(NUMFIL(4),*)MINIT1,MAXIT1 

NUMINC=INCCNT(2) 

C  VRITE(NUMFIL(4) ,*)NUMINC,CONERR*100.0 

STNINC=AINCLN(1,1) 

STSINC=AINCLN(1,2) 

ANEINC=AINCLN(1,3) 

C  VRITE(NUMFIL(4)  ,:*>)STNINC, STSINC, ANEINC 

ELSEIF( lALTER . EQ . 10)THEN 
C 

C***  ITEM  17B1 
C 

LINE=LINE+1 

READ(NUMFIL(1),*,ERR=2200)MINIT2,MAXIT2 

IVAR=IVAR+2 

WRITE(NUMFIL(2),*)’0  MINIMUM  NUMBER  OF  ITERATIONS :=’ ,MINIT2 
WRITE(NUMFIL(2),=tc)’  MAXIMUM  NUMBER  OF’ 

WRITE(NUMFIL(2) ,*) ’  ITERATIONS := ’ ,MAXIT2 

IF((MINIT2.GE.MAXIT2).0R.(MINIT2.LT.MINIT1))  GOTO  2210 
MINIT1=MINIT2 
MAXIT1=MAXIT2 

C  VRITE(NUMFIL(4),*)MINIT1,MAXIT1 

C 

C***  ITEM  17B2 
C 

LINE=LINE+1 

READ ( NUMFI L ( 1 ) , * , ERR=2305 ) PERERR 
IVAR=IVAR+1 

WRITE(NUMFIL(2),=k)’0  PERCENT  ERROR  FOR’ 

WRITE ( NUMFI L ( 2 ) , ♦ ) ’  CONVERGENCE : = ’ , PERERR , ’ % ’ 

IF(PERERR.LE.O)  GOTO  2315 
C  WRITE(NUMFIL(4),=tc)PERERR 

CONERR=PERERR/100 . ODO 
C 


175 


NAWCADWAR  95033-4.3 


C***  ITEM  17B3 
C 

LINE=LINE+1 

READ( NUMFIL ( 1 ) , * , ERR=2320 ) STNINC , STSINC , ANEINC 
IVAR=IVAR+3 

VRITE(NUMFIL(2),*)’0  STRAIN  INCREMENT: =’ ,STNINC 
VRITE(NUMFIL(2),=<.)’  STRESS  INCREMENT:  =  ’ ,STSINC 

VRITE(NUMFIL(2) ,*) ’  NEUBER  INCREMENT:=’ , ANEINC 

IF((STNINC.LE.O). OR. (STSINC. LE.O). OR. (ANEINC. LE.O))  GOTO  2330 
C  VRITE(NUMFIL(4) ,#)STNINC, STSINC, ANEINC 

ELSEIF( lALTER. EQ . 1 1 )THEN 
C  VRITE(NUMFIL(4),*)MINIT1,MAXIT1 

C  VRITE(NUMFIL(4),*)C0NERR*100.0 

STNINC=AINCLN(1,1) 

STSINC=AINCLN(1,2) 

ANEINC=AINCLN(1,3) 

C  WRITE(NUMFIL(4),*)STNINC, STSINC, ANEINC 

ELSEIF(IALTER.Eq.l2)THEN 
C  VRITE(NUMFIL(4),=tc)MINITl,MAXITl 

C  WRITE( NUMFIL ( 4 ),*)CONERR* 100.0 

STNINC=AINCLN(2,1> 

STSINC=AINCLN(2,2) 

ANEINC=AINCLN(2,3) 

C  VRITE(NUMFIL(4) ,*)STNINC, STSINC, ANEINC 

ENDIF 

0PEN(UNIT=NUMFIL(3) ,FILE=NAMFIL(3) ,ERR=2400,STATUS=’0LD’ ) 

C 

C***  ITEM  18 
C 

LINE=LINE+1 

READ(NUMFIL(  1 )  ,  n-  ,ERR=2700)  lORDER 
IVAR=IVAR+1 

VRITE(NUMFIL(2),*)’0  PARAMETER  CONTROLLING  REARRANGEMENT  OF’ 
WRITE(NUMFIL(2),*)’  HISTORY:=’ ,IORDER 

IF((IORDER.LT.O).OR.(IORDER.GT.2))  GOTO  2800 
C  WRITE(NUMFIL(4),*)I0RDER 
IF(NAMFIL(5).NE. ’  ’ )THEN 

0PEN(UNIT=NUMFIL(5) ,FILE=NAMFIL(5) ,ERR=2900) 

ENDIF 

RETURN 

100  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  PROBLEM  GENERAL  HEADING.  ASCII  TEXT  OF  ’,ITEXT 
WRITE(NUMFIL(2),*)’  CHARACTERS.  READ  USING  FREE  FORMAT.  NOTE  THAT’ 
WRITE(NUMFIL( 2 ),=*■)’  THE  TEXT  STRING  MUST  BE  ENCLOSED  IN  SINGLE’ 
WRITE(NUMFIL(2) ,*) ’  QUOTES. ’ 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

200  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
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VRITE(NUMFIL(2),*)’  FILENAME  FOR  STRESS-STRAIN  DATA  OUTPUT,  ASCII’ 
VRITE(NUMFIL(2),*)’  TEXT  OF  ’,NUMLET,’  CHARACTERS.  READ  IN  FREE’ 
VRITE(NUMFIL(2),*)’  FORMAT.  NOTE  THAT  THE  TEXT  MUST  BE  ENCLOSED’ 
VRITE(NUMFIL(2),*)’  IN  SINGLE  QUOTES.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

300  VRITE(NUMFIL(2),*)’OERROR  IN  SUBROUTINE  VALUES.’ 

WRITE(NUMFIL(2),*)’  UNABLE  TO  SUCCESSFULLY  OPEN  DATA  FILE  FOR’ 
VRITE(NUMFIL(2),*)’  STRESS-STRAIN  OUTPUT  WITH  FILE’ 
VRITE(NUMFIL(2),=*)’  NAME=’ ,NAMFIL(4)  ,  ’ .  ’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

400  VRITE(NUMFIL(2),:«)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  EXPECT  A  VALUE  FOR  FOR  THE  TYPE  OF  CONTROL’ 
WRITE(NUMFIL(2),*)’  CONDITIONS;  STRESS,  STRAIN,  OR  NEUBER. ’ 
VRITE(NUMFIL(2),"tc)’  EXPECTING  AN  INTEGER  VALUE  READ  USING  FREE’ 
WRITE(NUMFIL(2)  ,=•<)  ’  FORMAT.  ’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

500  WRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD=’ , LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  VALUE  FOR  THE  TYPE  OF  ANALYSIS  SIMULATION’ 
WRITE(NUMFIL(2),.k)’  SHOULD  BE;’ 

WRITE(NUMFIL(2),*)’  1=STRAIN  CONTROL  SIMULATION’ 
WRITE(NUMFIL(2),>k)’  2=STRESS  CONTROL  SIMULATION’ 
WRITE(NUMFIL(2),*)’  3=N0TCH  SPECIMEN  NEUBER  ANALYSIS  ELASTIC’ 
WRITE(NUMFIL(2),*)’  NOMINAL  STRESSES  ONLY.’ 

WRITE(NUMFIL(2),*)’  VALUE  GIVEN=’ ,NEUTYP 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL( 2 ),=*>)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

600  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),=t-)’  NUMERICAL  VALUE  FOR  ELASTIC  STRESS’ 
VRITE(NUMFIL(2),=(c)’  CONCENTRATION  FACTOR  KT.  EXPECTING  A  REAL’ 
WRITE(NUMFIL(2),»t<)’  NUMERICAL  VALUE  READ  USING  FREE  FORMAT.’ 

WRITE (NUMFIL( 2 NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

610  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),=ic)’  THE  VALUE  OF  AKT  FOR  ELASTIC  STRESS’ 
WRITE(NUMFIL(2),=«)’  CONCENTRATION  FACTOR  IS  NOT  .GE.  1.’ 
WRITE(NUMFIL(2),=t=)’  VALUE  GIVEN=’,AKT 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),=t<)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

900  WRITE(NUMFIL(2),=t=)’OERROR  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  SPECIMEN/MATERIAL  NAME.  ASCII  TEXT  OF  ’,ITEXT 
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VRITE(NUMFIL(2),=<c)’  CHARACTERS.  READ  USING  FREE  FORMAT.’ 
VRITE(NUMFIL(2),=^)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),=k)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1000  VRITE(NUMFIL(2),:tc)’OERR0R  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  FOR  INDICATING  THE  UNIT’ 
VRITE(NUMFIL(2),*)’  SYSTEM.  EXPECTING  AN  INTEGER  NUMERICAL  VALUE’ 
VRITE(NUMFIL(2),*)’  READ  USING  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1100  WRITE(NUMFIL(2),=f)’OERROR  READING  RECORD= ’ , LINE , ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),=ic)’  VALUE  INDICATING  THE  SYSTEM  OF  UNITS  DESIRED’ 
WRITE(NUMFIL(2),*)’  SHOULD  BE:’ 

VRITE(NUMFIL(2),*)’  1=KIP,  KSI,  IN/IN(DIMENSIONLESS) ,  SEC’ 
VRITE(NUMFIL(2),*)’  2=MN,  MPA,  IN/IN(DIMENSIONLESS) ,  SEC’ 
VRITE(NUMFIL(2),:^.)’  VALUE  GIVEN=’ ,IUNITS 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
¥RITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1200  WRITE(NUMFIL(2),=*<)’OERROR  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  FOR  WALKER  CONSTANT  E. ’ 
VRITE(NUMFIL(2),*)’  EXPECTING  A  REAL  NUMERICAL  VALUE  READ  USING’ 
VRITE(NUMFIL(2),:*=)’  FREE  FORMAT.’ 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),=t»)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1210  VRITE(NUMFIL(2),=t<)’OERROR  READING  RECORD=  ’  ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  E  FOR  VALKER”S  CONSTANT  IS  NOT’ 
WRITE (NUMFIL( 2 ),=!»)’  .GT.  0.’ 

WRITE(NUMFIL(2),*)’  VALUE  GIVEN=’,E 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1300  WRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD=’ ,LINE. ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),=tc)’  NUMERICAL  VALUE  FOR  WALKER  CONSTANTS’ 
WRITE(NUMFIL(2),*)’  EOSTS,  AN,  AND  AM.’ 

WRITE(NUMFIL(2),=t=)’  EXPECTING  REAL  NUMERICAL  VALUES  READ  USING’ 
WRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

WRITE (NUMFIL( 2 ),:<<)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1310  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),=t<)’  THE  VALUE  OF  AN  FOR  WALKER”S  CONSTANT  IS  NOT’ 
WRITE(NUMFIL(2),*)’  .GE.  1.0.’ 

WRITE(NUMFIL(2),>^)’  VALUE  GIVEN=’,AN 

WRITE(NUMFIL(2),>i.)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE (NUMFIL( 2 ),=«)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 
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1320  WRITE(NUMFIL(2),*)’OERROR  READING  REC0RD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),k)’  the  value  of  am  for  WALKER”S  constant  is  NOT’ 
WRITE(NUMFIL(2),*)’  .GE.  1.0.’ 

WRITE(NUMFIL(2),>f)’  VALUE  GIVEN=’,AM 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1400  VRITE(NUMFIL(2),i.)’0ERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  FOR  WALKER  CONSTANTS’ 
WRITE(NUMFIL(2),*)’  ANl,  AN2,  AND  AN3.’ 

VRITE(NUMFIL(2),*)’  EXPECTING  REAL  NUMERICAL  VALUES  READ  USING’ 
VRITE(NUMFIL(2),*)’  FREE  FORMAT. ’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1410  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  THE  VALUE  OF  ANl  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),*)’  NOT  .GE.  0.’ 

VRITE(NUMFIL(2),=t‘)’  VALUE  GIVEN=’,AN1 

WRITE(NUMFIL(2),:*«)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
¥RITE(NUMFIL(2),:tc)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1420  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  AN2  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),*)’  NOT  .GE.  0.’ 

VRITE(NUMFIL(2),*)’  VALUE  GIVEN=’,AN2 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),i=)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1430  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  THE  VALUE  OF  AN3  FOR  WALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),*)’  NOT  .GE.  0.’ 

VRITE(NUMFIL(2),=t.)’  VALUE  GIVEN=’,AN3 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL( 2 ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1500  WRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  FOR  WALKER  CONSTANTS’ 
WRITE(NUMFIL(2),*)’  AN4,  AN5,  AND  AN6.’ 

WRITE(NUMFIL(2),>k) ’  EXPECTING  REAL  NUMERICAL  VALUES  READ  USING’ 
WRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

WRITE(NUMFIL(2),*) ’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1510  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  AN4  FOR  WALKER”S  CONSTANT  IS’ 
WRITE(NUMFIL(2),*)’  NOT  .GE.  0.’ 

WRITE(NUMFIL(2),=)c)’  VALUE  GIVEN=’,AN4 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
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VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1520  VRITE(NUMFIL(2),=f)’OERROR  READING  R£CORD= ’ , LINE , ’  OF  DATA  FILE.’ 
VRITE(NtIMFIL(2),*)’  THE  VALUE  OF  AN5  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),>ic)’  NOT  .GT.  0.’ 

VRITE(NUMFIL(2),=^)’  VALUE  GIVEN=’,AN5 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1530  VRITE(NUMFIL(2),:*=)’OERROR  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),^)’  THE  VALUE  OF  AN6  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),*)’  NOT  .GE.  0.’ 

VRITE(NUMFIL(2),=t<)’  VALUE  GIVEN=’,AN6 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL( 2 ),:*=)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1600  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),:t=)’  NUMERICAL  VALUE  FOR  WALKER  CONSTANTS’ 
VRITE(NUMFIL(2),*)’  ANT,  AKl,  AND  AK2. ’ 

VRITE(NUMFIL(2),f)’  EXPECTING  REAL  NUMERICAL  VALUES  READ  USING’ 
VRITE(NUMFIL(2),=«)’  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1610  WRITE(NUMFIL(2),h=)’0ERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  THE  VALUE  OF  ANT  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),*)’  NOT  .GT.  O.’ 

VRITE(NUMFIL(2),*)’  VALUE  GIVEN=’,ANT 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),>k)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1620  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  AKl  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),:*)’  NOT  .GT.  AK2=’,AK2 
VRITE(.NUMFIL(2),*)’  VALUE  GIVEN=’,AK1 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1630  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  THE  VALUE  OF  AK2  FOR  VALKER”S  CONSTANT  IS’ 
VRITE(NUMFIL(2),*)’  NOT  .GE.  0.’ 

WRITE (NUMFIL( 2 ),=«)’  VALUE  GIVEN=’,AK2 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’' 
WRITE(NUMFIL(2),^)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1640  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD= ’ ,LINE, ’  OF  DATA  FILE.’ 
3  WRITE(NUMFIL(2),*)’  THE  VALUE  OF  EOSTS  FOR  WALKER”S  CONSTANT’ 

WRITE(NUMFIL(2),*)’  IS  NOT  BETWEEN’ , -1 .0+AKl , ’  AND’ , AKl 
WRITE(NUMFIL(2),>t<)’  VALUE  GIVEN=’ , EOSTS 
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VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1700  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  HISTORY  NAME.  ASCII  TEXT  OF  ’,ITEXT 
VRITE(NUMFIL(2),*)’  CHARACTERS.  READ  USING  FREE  FORMAT.  TEXT  MUST’ 
VRITE(NUMFIL(2),*)’  BE  ENCLOSED  IN  SINGLE  QUOTES.’ 
VRITE(NUMFIL(2),^)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1800  VRITE(NUMFIL(2),*)’OERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  FILE  NAME  OF  FILE  THAT  CONTAINS  PEAK/VALLEY’ 
VRITE(NUMFIL(2),*)’  LOAD  HISTORY  TO  ANALYZE.  ASCII  TEXT  OF’ 
VRITE(NUMFIL(2),*)’  ’,NUMLET,’  CHARACTERS.  READ  USING  FREE’ 
VRITE(NUMFIL(2),>f)’  FORMAT.’ 

VRITE(NUMFIL(2),>t<)’  TEXT  MUST  BE  ENCLOSED  IN  SINGLE  QUOTES.’ 
VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1900  VRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  TO  SCALE  THE  MAGNITUDE  IN  THE’ 
VRITE(NUMFIL(2),*)’  HISTORY  OF  THE  MOST  EXTREME  PEAK  OR  VALLEY.’ 
VRITE(NUMFIL(2),*)’  EXPECTING  A  REAL  NUMERICAL  VALUE  READ  USING’ 
VRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1905  VRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD= ’ , LINE , ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  THE  VALUE  OF  HISCLE  TO  SCALE  THE  AMPLITUDE’ 
VRITE(NUMFIL(2),*)’  MAGNITUDE  FROM  ZERO  OF  THE  HISTORY  IS  NOT’ 
VRITE(NUMFIL(2),*)’  .GT.  0.’ 

VRITE(NUMFIL(2),>f)’  VALUE  GIVEN=’ , HISCLE 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1906  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),"k)’  NUMERICAL  VALUE  CONTROLLING  THE  AUTOMATED’ 
VRITE(NUMFIL(2),*)’  SCANNING  OF  THE  HISTORY  FOR  THE  LARGEST’ 
VRITE(NUMFIL(2),*)’  AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK  OR’ 
VRITE(NUMFIL(2),*)’  VALLEY.’ 

VRITE(NUMFIL(2),*)’  EXPECTING  AN  INTEGER  NUMERICAL  VALUE  READ’ 
VRITE(NUMFIL(2),*)’  USING  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’' 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1907  WRITE(NUMFIL(2),>tc)’OERROR  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  ISCAN,  CONTROLLING  THE  AUTOMATED’ 
VRITE(NUMFIL(2),*)’  SCANNING  OF  THE  HISTORY  FOR  THE  LARGEST’ 
VRITE(NUMFIL(2),*)’  AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK  OR’ 
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VRITE(NUMFIL(2),%)’  VALLEY,  IS  INCORRECT  AND  SHOULD  BE:’ 
WRITE(NUMFIL(2),*)’  d=NO  AUTOMATED  SCANNING.  USER  GIVEN  MAXIMUM’ 
WRITE(NUMFIL(2),:tc)’  AMPLITUDE  MAGNITUDE  FROM  ZERO  FOLLOWS.  ’ 
VRITE(NUMFIL(2),*)’  1=AUT0MATED  SCANNING  DONE.’ 
¥RITE(NUMFIL(2),:*=)’  VALUE  GIVEN=’ , ISCAN 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1908  VRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD= ’ , LINE , ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  VALUE  OF  THE  USER  SUPPLIED  LARGEST  AMPLITUDE’ 
VRITE(NUMFIL(2),>^)’  MAGNITUDE  FROM  ZERO  OF  A  PEAK  OR  VALLEY.’ 
WRITE(NUMFIL(2),*)’  EXPECTING  A  REAL  NUMERICAL  VALUE  READ’ 
VRITE(NUMFIL(2),=f)’  USING  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*:)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1909  WRITE(NUMFIL(2),*)’0ERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE (NUMFIL( 2 ),:»=)’  THE  VALUE  OF  AMPMAG,  FOR  THE  LARGEST’ 
WRITE(NUMFIL(2),=t<)’  AMPLITUDE  MAGNITUDE  FROM  ZERO  OF  A  PEAK  OR’ 
WRITE(NUMFIL(2),*)’  VALLEY,  IS  NOT  .GT.  0.’ 

WRITE(NUMFIL(2),:*=)’  VALUE  GIVEN=’ , AMPMAG 

WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1910  WRITE(NUMFIL(2),=t.)’OERROR  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  FOR  HISTORY  LOADING  RATE.’ 
WRITE(NUMFIL(2),=f)’  EXPECTING  A  REAL  NUMERICAL  VALUE  READ  USING’ 
WRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

WRITE(NUMFIL(2),=t=)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),=t<)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1920  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  RATELD  THE  RATE  OF  LOADING  IS’ 
WRITE(NUMFIL(2),*)’  NOT  .GT.  0.’ 

WRITE(NUMFIL(2),*)’  VALUE  G I VEN= ’, RATELD 

WRITE(NUMFIL(2),hc)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),=t.)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1922  WRITE(NUMFIL(2),=t=)’0ERR0R  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  TO  CONTROL  OUTPUT  OF  GRAPHIC’ 
WRITE(NUMFIL(2>,*)’  DATAFILE.’ 

WRITE(NUMFIL(2),=.c)’  EXPECTING  AN  INTEGER  NUMERICAL  VALUE  READ’ 
WRITE(NUMFIL(2),*)’  USING  FREE  FORMAT.’ 

WRITE(NUMFIL(2),:(c)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1923  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),:4=)’  value  controlling  output  of  graphic  DATA’ 
WRITE(NUMFIL(2),*)’  FILE.  PARAMETERS  SHOULD  BE:’ 
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VRITE(NUMFIL(2),*)’  0=DO  NOT  OUTPUT  GRAPHIC  DATA  FILE.’ 
WRITE(NUMFIL(2),=^)’  1=0UTPUT  GRAPHIC  DATA  FILE.’ 

VRITE(NUMFIL(2),*)’  VALUE  GIVEN=’ ,IGRAPH 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

1925  VRITE(NUMFIL(2),=tc)’0ERR0R  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE,’ 
VRITE(NUMFIL(2),*)’  FILENAME  FOR  GRAPHIC  DATA  OUTPUT,  ASCII  TEXT’ 
WRITE(NUMFIL(2),*)’  OF’,NUMLET,’  CHARACTERS.  READ  IN  FREE  FORMAT.’ 
VRITE(NUMFIL(2),*)’  NOTE  THAT  THE  TEXT  MUST  BE  ENCLOSED  IN  SINGLE’ 
VRITE(NUMFIL(2),=f)’  QUOTES.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2000  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),=tc)’  NUMERICAL  VALUE  TO  CONTROL  SELECTION  OF  USER’ 
VRITE(NUMFIL(2),*)’  DESIRED  INPUT  OF  CONVERGENCE  PARAMETERS.’ 
WRITE(NUMFIL(2),*)’  EXPECTING  AN  INTEGER  NUMERICAL  VALUE  READ’ 
WRITE(NUMFIL(2),*)’  USING  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),=f)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2100  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),=t=)’  VALUE  CONTROLLING  INPUT  OF  CONVERGENCE’ 
VRITE(NUMFIL(2),*)’  PARAMETERS  SHOULD  BE:’ 

VRITE(NUMFIL(2),*)’  0=USER  VALUES  CONSTANT  NUMBER  OF  INCREMENTS.’ 
VRITE(NUMFIL(2),*)’  1=PR0GRAM  DEFAULT  CONSTANT  NUMBER  OF’ 
VRITE(NUMFIL(2),*)’  INCREMENTS.  FINE  INCREMENTS. ’ 
VRITE(NUMFIL(2),*)’  2=PR0GRAM  DEFAULT  CONSTANT  NUMBER  OF’ 
VRITE(NUMFIL(2),=.<)’  INCREMENTS.  COURSE  INCREMENTS.’ 
WRITE(NUMFIL(2),*)’  10=USER  VALUES  CONSTANT  STEP  LENGTH.’ 
VRITE(NUMFIL(2),*)’  11=PR0GRAM  DEFAULT  CONSTANT  STEP  LENGTH.’ 
VRITE(NUMFIL(2),*)’  FINE  STEP  LENGTH.’ 

VRITE(NUMFIL(2),*)’  12=PR0GRAM  DEFAULT  CONSTANT  STEP  LENGTH.’ 
WRITE(NUMFIL(2),*)’  COURSE  STEP  LENGTH.’ 

WRITE(NUMFIL(2),>i.)’  VALUE  GIVEN=’ ,IALTER 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2200  VRITE(NUMFIL(2),=t.)’0ERR0R  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  NUMERICAL  VALUES  CONTROLLING  THE  NUMBER  OF’ 
VRITE(NUMFIL(2),*)’  ITERATIONS  MINIMUM  AND  MAXIMUM.’ 
VRITE(NUMFIL(2),*)’  EXPECTING  INTEGER  NUMERICAL  VALUES  READ  USING’ 
VRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2210  VRITE(NUMFIL(2),=^)’0ERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL(2),*)’  THE  VALUE  OF  MINIT  IS  NOT  .LT.  MAXIT  OR’ 
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VRITE(NUMFIL(2),*)’  MINIT  IS  NOT  .GE.’,MINIT1 
WRITE(NUMFIL(2),*)’  VALUE  GIVEN  MINIT=’ ,MINIT2 

¥RITE(NUMFIL(2),=k)’  MAXIT=’ ,MAXIT2, ’NUMBER  OF  SUCCESSFULLY  READ’ 
VRITE(NUMFIL(2),*)’  NUMERICAL  AND  ASCII  VARIABLES  FROM  DATA’ 
VRITE(NUMFIL(2),%)’  FILE=’,IVAR 
STOP 

2300  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
VRITE(NUMFIL( 2 ),=•=)’  NUMERICAL  VALUES  CONTROLLING  THE  CONVERGENCE’ 
WRITE(NUMFIL(2),*)’  THE  NUMBER  OF  STEPS  TO  A  REVERSAL,’ 
WRITE(NUMFIL(2),*)’  THE  CONVERGENCE  ERROR  IN  PERCENT.’ 
WRITE(NUMFIL( 2 ),:•«)’  EXPECTING  AN  INTEGER  VALUE  FOLLOWED  BY  A  REAL’ 
WRITE(NUMFIL(2),*)’  VALUE  READ  USING  FREE  FORMAT.’ 
VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2305  VRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  NUMERICAL  VALUE  CONTROLLING  THE  CONVERGENCE’ 
VRITE(NUMFIL(2),*)’  THE  CONVERGENCE  ERROR  IN  PERCENT.’ 
WRITE(NUMFIL(2),*)’  EXPECTING  REAL  NUMERICAL  VALUE  READ  USING’ 
WRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

VRITE(NUMFIL( 2 ),:*=)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
VRITE(NUMFIL(2),>^)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2310  WRITE  (NUMFIL(2),=tc)’OERROR  READING  RECORD=’ ,LINE,  ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),>k)’  THE  VALUE  OF  NUMINC,  OR  PERERR  IS  NOT’ 
WRITE(NUMFIL(2),*)’  .GT.  0.’ 

WRITE(NUMFIL(2),*)’  VALUE  GIVEN  NUMINC=’ , NUMINC, ’  PERERR= ’, PERERR 
WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2315  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  PERERR  IS  NOT’ 

WRITE (NUMFIL (2 ),=•<)’  .GT.  0.’ 

WRITE(NUMFIL(2),=tc)’  VALUE  GIVEN  PERERR= ’, PERERR 
WRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2320  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITECNUMFIL(2),*)’  NUMERICAL  VALUES  CONTROLLING  THE  CONVERGENCE’ 
WRITE(NUMFIL(2),=t.)’  THE  3  STEP  INCREMENT  LENGTHS  USED  TO  TRAVERSE’ 
WRITE(NUMFIL( 2 ),:*=)’  TO  A  REVERSAL.’ 

WRITE(NUMFIL(2),*)’  THE  3  VALUES  ARE:  THE  STRAIN,  STRESS  AND’ 
WRITE(NUMFIL(2),*)’  NEUBER  INCREMENTS.’ 

WRITE(NUMFIL(2),:^)’  EXPECTING  REAL  NUMERICAL  VALUES  READ  USING’ 
WRITE(NUMFIL(2),*)’  FREE  FORMAT.’ 

WRITE(NUMFIL(2),=tc)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2330  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
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VRITE(NUMFIL(2),*)’  THE  VALUE  OF  STNINC,  STSINC,  OR  ANEINC  IS  NOT’ 
VRITE(NUMFIL(2),*)’  .GT.  0.’ 

VRITE(NUMFIL(2),*)’  VALUE  GIVEN  STNINC=’ , STNINC, ’  STSINC=’ , STSINC 
VRITE(NUMFIL(2),*)’  AND  ANEINC=’ , ANEINC 

VRITE(NUMFIL(2),*)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2400  VRITE(NUMFIL(2),*)’OERROR  IN  SUBROUTINE  VALUES.’ 

VRITE(NUMFIL(2),=tc)’  UNABLE  TO  SUCCESSFULLY  OPEN  OLD  DATA  FILE  FOR’ 
VRITE(NUMFIL(2),t<)’  INPUT  OF  HISTORY  WITH  FILE’ 

WRITE(NUMFIL(2) ,*)^  NAME=’ ,NAMFIL(3) , ’ . ’ 

STOP 

2500  VRITE(NUMFIL(2),*)’OERROR  IN  SUBROUTINE  VALUES.’ 

VRITE(NUMFIL(2),*)’  UNABLE  TO  SUCCESSFULLY  OPEN  OLD  DATA  FILE  FOR’ 
VRITE(NUMFIL(2),*)’  INPUT  OF  CALCULATION  PARAMETERS  WITH  UNIT’ 
WRITE(NUMFIL(2),=^)’  NUMBER=’ ,NUMFIL(1)  ,  ’  AND  FILE’ 

WRITE(NUMFIL(2) ,*) ’  NAME=’ ,NAMFIL(1) , ’ .  ’ 

STOP 

2600  WRITE (=«,*)’OERROR  IN  SUBROUTINE  VALUES.’ 

VRITE(=t",*)’  UNABLE  TO  SUCCESSFULLY  OPEN  DATA  FILE  FOR’ 

VRITE(*,*)’  OUTPUT  OF  PROGRAM  MESSAGES  WITH  UNIT’ 

WRITE(*,*)’  NUMBER=’ ,NUMFIL(2),’  AND  FILE’ 

WRITE(*,*)’  NAME=’ ,NAMFIL(2), ’ . ’ 

STOP 

2700  WRITE(NUMFIL(2),*)’OERROR  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  ORDERING  OF  HISTORY  PARAMETER.  AN  INTEGER’ 
WRITE(NUMFIL(2),*)’  VALUE  READ  USING  FREE  FORMAT.’ 
WRITE(NUMFIL(2),=tc)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),=tc)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2800  WRITE(NUMFIL(2),*)’OERR0R  READING  RECORD=’ ,LINE, ’  OF  DATA  FILE.’ 
WRITE(NUMFIL(2),*)’  THE  VALUE  OF  lORDER  INDICATING  THE  ORDERING’ 
WRITE(NUMFIL(2),*)’  OF  THE  HISTORY  IS  NOT  ONE  OF  THE  FOLLOWING:’ 
WRITE(NUMFIL(2),*)’  0=HISTORY  NOT  REORDERED  USED  AS  GIVEN.’ 
WRITE(NUMFIL( 2 ),=•=)’  1=HIST0RY  REORDERED  STARTING  WITH  LOWEST’ 
WRITE(NUMFIL(2),*)’  VALLEY.’ 

WRITE(NUMFIL(2),=k)’  2=HIST0RY  REORDERED  STARTING  WITH  HIGHEST’ 
WRITE(NUMFIL(2),:+=)’  PEAK.’ 

WRITE(NUMFIL(2),*)’  VALUE  GIVEN=’ , lORDER 

WRITE(NUMFIL(2),=«)’  NUMBER  OF  SUCCESSFULLY  READ  NUMERICAL  AND’ 
WRITE(NUMFIL(2),*)’  ASCII  VARIABLES  FROM  DATA  FILE=’,IVAR 
STOP 

2900  WRITE(NUMFIL(2),*)’OERROR  IN  SUBROUTINE  VALUES.’ 

WRITE(NUMFIL(2),*)’  UNABLE  TO  SUCCESSFULLY  OPEN  DATA  FILE  FOR’ 
WRITE(NUMFIL(2),*)’  OUTPUT  OF  GRAPHIC  DATA.’ 

WRITE(NUMFIL(2),*)’  FILE  NAME=’ ,NAMFIL(5) , ’ . ’ 

STOP 

END 
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100 


200 


C: 


C====: 


SUBROUTINE  SCAN( IHISIN , AMAX , AMIN , AMAG ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /GE0/P2 , P4 , P5 , AMPMAG , IPl , IP3 , lORDER , ISCAN 
COMMON  /ODRPOS^MIN,LMAX 
IF( ( ISCAN . EQ . 1 ) . OR . ( lORDER . NE . 0 ) )THEN 
REVIND( IHISIN) 

LINE=0 

READ(IHISIN,*)VALUE 

LINE=LINE+1 

AMAX=VALUE 

AMIN=VALUE 

LMIN=LINE 

LMAX=LINE 

READ( IHISIN , * , END=200) VALUE 
LINE=LINE+1 
I F ( VALUE . GT . AMAX ) THEN 
AMAX=VALUE 
LMAX=LINE 

ELSEIF( VALUE . LT . AMIN )THEN 
AMIN=VALUE 
LMIN=LINE 

ENDIF 
GOTO  100 
CONTINUE 

ENDIF 

IF(ISCAN.EQ.O)THEN 
AMAG = AMPMAG 

ELSE 

AAMAX=ABS(AMAX) 

AAMIN=ABS(AMIN) 

I F( AAMAX . GT . AAMIN )THEN 
AMAG=AAMAX 

ELSE 

AMAG=AAMIN 

ENDIF 

ENDIF 

RETURN 

END 


SUBROUTINE  SCLFAC( HISCLE , AMAG , FACTOR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

FACTOR=HISCLE/AMAG 

RETURN 

END 

SUBROUTINE  REORDR( IHISIN, NEVODR, FACTOR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /GE0/PAD2 , PAD4 , PAD5 , PADS , IPADl , IPAD3 , lORDER , IPAD7 
COMMON  /ODRPOS/LMIN,LMAX 
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OPEN(UNIT=NEVODR, STATUS= ’ SCRATCH ’ ) 
REVIND(IHISIN) 

IF(I0RDER.EQ.0)THEN 
10  READ(IHISIN,*,END=20) VALUE 

WRITE(NEVODR, ♦ ) VALUE*FACT0R 
GOTO  10 

20  CONTINUE 

ELSEIF( lORDER . EQ . 1 ) THEN 
IF(LMIN.GT.1)THEN 

DO  30,  I=1,LMIN-1 
READ(IHISIN) 

30  CONTINUE 

ENDIF 

40  READ(IHISIN,*,END=50)VALUE 

WRI TE  (  NEVO  DR ,  =<« )  VALUE*  FACTOR 
GOTO  40 

50  CONTINUE 

IF(LMIN.GT.1)THEN 

REVIND(IHISIN) 

DO  60,  I=1,LMIN-1 

READ(IHISIN,*)VALUE 
WRITE ( NEWO  DR , * ) VALUE*FACTOR 
60  CONTINUE 

ENDIF 

ELSE 

IF(LMAX.GT.1)THEN 

DO  70,  I=:1,LMAX-1 
READ(IHISIN) 

70  CONTINUE 

ENDIF 

80  READ(IHISIN,*,END=90)VALUE 

WRITE ( NEWO  DR , * ) VALUE* FACTOR 
GOTO  80 

90  CONTINUE 

IF(LMAX.GT.1)THEN 

REWIND(IHISIN) 

DO  100,  I=1,LMAX-1 

READ (IHISIN,*) VALUE 
WRITE ( NEWODR , * ) VALUE*FACTOR 
100  CONTINUE 

ENDIF 

ENDIF 

END 

SUBROUTINE  STRAIN( IHISIN , NUMFIL , NAMGPH) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
CHARACTER* ( * )  N AMG  PH 
DIMENSION  NUMFIL(2) 

COMMON  /STPCON/IALTER, IPADl , PAD2 , PAD3 , PAD4 
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IF(IALTER.LE.2)THEN 

CALL  STNNUM(IHISIN,NUMFIL(1) ,NAMGPH) 

ELSE 

CALL  STNLEN( IHISIN , NUMFIL( 1 ) , NAMGPH) 

ENDIF 

RETURN 

END 

C====================================================================: 

SUBROUTINE  STNNUM( IHISIN ,NUMFIL , NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*  (=•=)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /VALCON/EOSTS , P2 , P3 , P4 , P5 , P6 , E , P8 , P9 , PIO , YMl , P12 , YNl , P14 
COMMON  /GE0/AP2 , AP4 ,  RATELD , APS , lAPl , lUNITS , IAP6 , 1 APT 
COMMON  /STPCON/IBPl , NUMINC , STNINC , BP4 , BPS 
COMMON  /DTCONS/Zl , Z3 , Z4 , Z5 , Z7 , AN6 , CP7 
COMMON  /C0NVER/IDP1,MAXIT,C0NERR,ELSC0N,DCC0N,DP6 
C  TIME,  T=:0  INITIALIZATION 
MAVG=0 

REWIND( IHISIN) 

T2=0 . ODO 
BM2STS=0.0D0 
T2STN=0.0D0 
P2STN=0.0D0 
C2STN=0.0D0 
E2STS=E0STS 
STNBGN=O.ODO 
DMSTS=O.ODO 
IERR=0 
M=0 
1=0 

IF(IUNITS.EQ.1)THEN 

WRITE( NUMFIL ( 1 ) , 1000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

WRITE ( NUMFI L ( 2 ), 2000 ) T2 , T2STN , BM2STS 

ENDIF 

ELSE 

VRITE( NUMFIL ( 1 ) , 3000 ) I , T2 . T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

VRITE( NUMFI L ( 2 ), 4000 ) T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

10  READ( IHISIN, *,END=40)STNEND 
MIN=MAXIT 
MAX=0 

STNRNG=STNEND-STNBGN 

C 

C***  CHECK  FOR  STNRNG=0.  IF  TRUE,  READ  ANOTHER  REVERSAL. 

C 
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IF(STNRNG.EQ.O.pDO)  GOTO  10 
NUMSTP=NUMINC 
STNSTP=STNRNG /DBLE( NUMSTP ) 

IF(ABS(STNSTP) .LT.STNINC)THEN 

NUMSTP=INT(ABS(STNRNG/STNINC))+1 

STNSTP=STNRNG/DBLE(NUMSTP) 

ENDIF 

DTSTN=STNSTP 

DT=ABS ( STNSTP ) /RATELD 

Zl=AN6=t=DT 

Z3=Z1*YM1 

Z4=E*DT 

Z7=DT*YN1 

DCABS=ABS(DTSTN) 

DCCON=DCABS=«CONERR 
Z5=E*DTSTN 
ELSCON=DCABS/2.0DO 
DESTS=O.ODO 
DO  20,  I 1=1, NUMSTP 
DPSTN=DTSTN 
DCSTN=DCABS 
BM1STS=BM2STS 
P1STN=P2STN 
C1STN=C2STN 
E1STS=E2STS 
T1STN=T2STN 
T1=T2 

CALL  STNC0N(BM1STS , PISTN , CISTN , EISTS ,T1STN ,T1 , DT , DTSTN , 
$  DMSTS , DPSTN , DCSTN , BESTS , BM2STS , P2STN , C2STN , 

$  E2STS,T2STN,T2,IERR,M) 

MAVG=MAVG+M 
IF(M.GT.MAX)  MAX=M 
IF(M.LT.MIN)  MIN=M 
IF(NAMGPH.NE. ’  ’ )THEN 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMFI L ( 2 ) , 2000 )T2 , T2STN , BM2STS 

ELSE 

WRITE ( NUMFI L ( 2 ) , 4000 )T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

IF(IERR.NE.O)GOTO  30 
20  CONTINUE 

30  CONTINUE 

1=1+1 

MAVG=MAVG/NUMSTP 

IF(IUNITS.EQ.1)THEN 

WRITE(NUMFIL ( 1 ) , 1000 ) I ,T2 ,T2STN , BM2STS , NUMSTP , MIN , MAVG , 
$  MAX, I ERR 

ELSE 
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VRITE( NUMFI L ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG 
$  MAX,IERR 

ENDIF 

IF(IERR.NE.O)GOTO  40 
STNBGN=T2STN 
GOTO  10 
40  CONTINUE 
RETURN 

1000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.3,1X,4(I4,1X),I2) 

2000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.3) 

3000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.2,1X,4(I4,1X),I2) 

4000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.2) 

END 

SUBROUTINE  STNLEN( IHISIN , NUMFIL , NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER=«(*)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /VALCON/EOSTS , P2 , P3 , P4 , P5 , P6 , E , P8 , P9 , PIO , YMl , P12 , YNl , P14 
COMMON  .  /GE0/AP2 , AP4 , RATELD , APS , lAPl , lUNITS , I AP6 , 1 AP7 
COMMON  /STPCON/IBPl , IBP2 ,STNINC , BP4 , BP5 
COMMON  /DTCONS/Zl , Z3 , Z4 , Z5 , Z7 , AN6 , CP7 
COMMON  /CONVER/IDPl , MAXIT , CONERR , ELSCON , DCCON , DP6 
C  TIME,  T=0  INITIALIZATION 
MAVG=0 

REWIND( IHISIN) 

T2=0.0D0 

BM2STS=0.0D0 

T2STN=0.0D0 

P2STN=0.0D0 

C2STN=0.0D0 

E2STS=E0STS 

STNBGN=O.ODO 

DMSTS=O.ODO 

IERR=0 

M=0 

1=0 

IF(IUNITS.Eq.l)THEN 

WRITE (NUMFIL ( 1 ) , 1000 ) I ,T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

VRITE( NUMFI L ( 2 ) , 2000 )T2 , T2STN , BM2STS 

ENDIF 

ELSE 

VRITE( NUMFIL ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

WRITE ( NUMFIL ( 2 ) , 4000 ) T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

10  READ( IHISIN, tc,END=40)STNEND 
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MIN=MAXIT 

MAX=0 

STNRNG=STNEND-STNBGN 

C 

CHECK  FOR  STNRNG=0.  IF  TRUE,  READ  ANOTHER  REVERSAL. 

C 

IF(STNRNG.EQ.O.ODO)  GOTO  10 
NUMSTP=INT(ABS(STNRNG/STNINC) )+l 
STNSTP=STNRNG/DBLE(NUMSTP) 

DTSTN=STNSTP 

DT=ABS ( STNSTP ) /RATELD 

Z1=AN6=^DT 

Z3=Z1*YM1 

Z4=E*DT 

Z7=DT*YN1 

DCABS=ABS(DTSTN) 

DCCON=DCABS=fCONERR 
Z5=E*DTSTN 
ELSC0N=DCABS/2 . ODO 
DESTS=O.ODO 
DO  20,  II=1,NUMSTP 
DPSTN=DTSTN 
DCSTN=DCABS 
BM1STS=BM2STS 
P1STN=P2STN 
C1STN=C2STN 
E1STS=E2STS 
T1STN=T2STN 
T1=T2 

CALL  STNCON ( BMISTS , PISTN , CISTN , EISTS , TISTN , T1 , DT , DTSTN , 
$  DMSTS , DPSTN , DCSTN , DESTS , BM2STS , P2STN , C2STN , 

$  E2STS,T2STN,T2,IERR,M) 

MAVG=MAVG+M 
IF(M.GT.MAX)  MAX=M 
IF(M.LT.MIN)  MIN=H 
IF(NAMGPH.NE. ’  ’ )THEN 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMFIL ( 2 ) , 2000 )T2 , T2STN , BM2STS 

ELSE 

WRITE ( NUMFI L ( 2 ), 4000 ) T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

IF(IERR.NE.O)GOTO  30 
20  CONTINUE 

30  CONTINUE 

1=1+1 

MAVG=HAVG/NUMSTP 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMFI L ( 1 ), 1000 ) I , T2 , T2STN , BM2STS , NUMSTP , MI N , MAVG , 
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$  MAX,IERR 

ELSE 

WRITE( NUMFI L ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 

$  MAX,IERR 

ENDIF 

IF(IERR.NE.O)GOTO  40 
STNBGN=T2STN 
GOTO  10 
40  CONTINUE 
RETURN 

1000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.3,1X,4(I4,1X),I2) 

2000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.3) 

3000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.2,1X,4(I4,1X),I2) 

4000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.2) 

END 

0======================================================================= 

SUBROUTINE  STNCON( BMISTS , PlSTN ,C1STN ,E1STS ,T1STN ,T1 , DT , DTSTN , 
SDMSTS , DPSTN , DCSTN , BESTS , BM2STS , P2STN , C2STN , 

$E2STS , T2STN , T2 , lERR , M ) 

C  FOLLOWING  INPUT  ONLY  TO  SUBROUTINE 
C  FORTRAN  CONSTANTS:  MINIT,MAXIT,CONERR 

C  WALKER  CONSTANTS:  E0STS,AN,AM,AN1,AN2,AN3,AN4,AN5,AN6,AN7,AK1, 

C  AK2,E 

C  VARIABLES:  BMISTS, PlSTN, C1STN,E1STS,DT, DTSTN 
C  FOLLOWING  INPUT  TO  AND  OUTPUT  FROM  SUBROUTINE 
C  VARIABLES:  DPSTN 

C  FOLLOWING  OUTPUT  ONLY  FROM  SUBROUTINE 
C  VARIABLES:  BM2STS , P2STN , C2STN , E2STS 

C**:|c***  +  *:|c:te:|:+:|e*:|c:|eHc:|c:+::|e^c:|e:4c:|!:|c:|::|e:|e:|c:|e:|c:|:^c:|e:|e:|c**:|e:|c*:|c:|:;|:*:|c**  +  Hc*  +  Hc***+********:|c:|:*  +  *:|c 

IMPLICIT  DOUBLE  PRECISI0N(A-H,0-Z) 

COMMON  /CONVER/MINIT , MAXIT , CONERR , ELSCON , DCCON , PADl 

COMMON  /WALCON/EOSTS , ANl , AN2 , AN3 , AN4 , AKl , E , Y5 , Y7 , YK2 , YMl , YM2 , 

$  YN1,YN2 

COMMON  /DTC0NS/Z1,Z3,Z4,Z5,Z7,AN6,PAD2 

CHECK  FOR  DT=0.0  WHICH  WOULD  RESULT  IN  DIVISION  BY  ZERO 

IF(DT.Eq.O.ODO)THEN 

WRITE (:i=,=ic)’0  ERROR  DT=0’ 

WRITE(*,:k)’  subroutine  STNCON:  CHECK  DT  CALCULATION  IN’ 
WRITE(^,:i=)’  CALLING  PROGRAM’ 

IERR=70 

RETURN 

ENDIF 

C 

C***  THE  STEP  NUMBERING  APPROXIMATES  THAT  GIVEN  IN  WALKER’S  PAPER. 

C 

C^cicsic  INITIALIZE  SUBROUTINE: 
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C***  STEP  #3;  PLASTIC  STRAIN  GUESS  AT  END  OF  INCREMENT. 

C***  STEP  #4:  INITIAL  GUESS  FOR  EQUILIBRIUM  STRESS  AT  END  OF  INCREMENT 

C 

Z2=E1STS-(E0STS+AN1*P1STN) 

Z6=BM1STS-E1STS 

P2STN=P1STN+DPSTN 

E2STS=E1STS+DESTS 

C 

C***  STEP  #7:  START  OF  INNER  ITERATION  LOOP.  M  ITERATION  LOOP  INDEX. 
C***  INITIALIZE  CONTROL  PARAMETER  FOR  LOOP. 

C 

M=0 

C 

C***  STEP  #8:  START  OF  REPETITIVE  STATEMENTS  OF  LOOP. 

C 

8  M=M+1 
C 

C***  STORE  VALUES  FOR  CONVERGENCE  TEST 
C 

OLDDE=DESTS 

OLDDC=DCSTN 

OLDDMS=DMSTS 


C 

C*=«=t<  STEP  #9: 
C***  STEP  #10: 

STEP  #11: 
C***  STEP  #13: 
C***  STEP  #16: 

Cafe  3k 
Cakakak 

c 


COMPUTE  THE  CUMULATIVE  PLASTIC  STRAIN  AT  THE  END  OF  THE 
INCREMENT. 

CALCULATE  DRAG  STRESS  (ISOTROPIC  HARDENING)  AT  END  OF 
INCREMENT. 

EVALUATE  THE  GUESS  FOR  DELTA  G. 

XI -COMPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

COMPUTE  EQUILIBRIUM  STRESS  GUESS  AT  END  OF  INCREMENT. 
X2,X3,X4,X5,X6-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 
COMPUTE  FUNCTION  OF  DELTA  G  TO  ITERATE  FOR  FINDING  ITS 
ZERO  TO  IMPROVE  THE  ESTIMATE  OF  DELTA  G. 

X7,X8-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 


C2STN=C1STN+DCSTN 

BK2=AKl+YK2=»cEXP(Y7*C2STN) 

XI = (  AN3+AN4*EXP  (  Y5>t<C2STN ) )  *  DCSTN 

DG=Xl+Zl=t.ABS(E2STS)*=t=YMl 

X2=EXP(-1.0D0:(cDG) 

X3=AN2*DPSTN 

X5=X2*Z2 


X6=E0STS+ANl=t<P2STN 

IF(DG.NE.O.ODO)THEN 

X4=X3>k(1.0D0-X2)/DG 

E2STS=X6+X5+X4 

X7=ABS(E2STS) 

X8=X7**YM2 


FlDG=Xl+Zl=tcX8=KX7-DG 
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C 

C***  STEP  #17:  COMPUTE  THE  DERIVATIVE  OF  THE  PROCEEDING  FUNCTION 
C 

IF(E2STS.GE.0.0D0)THEN 

DRF1DG=Z3=kX8*  (  (  X2*X3  -X4  )  /DG  -X5  )  - 1 .  ODO 

ELSE 

DRF1DG=Z3*X8* ( X5+ (X4-X2*X3 ) /DG ) - 1 . ODO 

ENDIF 

C 

C***  STEP  #18:  REFINE  DELTA  G  BY  A  SINGLE  NEWTON  ITERATION. 

C***  STEP  #19:  COMPUTE  REFINED  VALUE  OF  THE  EQUILIBRIUM  STRESS  BY 
C***  DIRECT  SUBSTITUTION  ITERATION,  SUBSTITUTING  REFINED 

C^K**  DELTA  G . 

C***  X2-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

C***  STEP  #19A:  COMPUTE  THE  EQUILIBRIUM  STRESS  INCREMENT 
C***  STEP  #20:  COMPUTE  GUESS  FOR  DELTA  Q. 

C:***  STEP  #21:  COMPUTE  GUESS  FOR  STRESS  AT  END  OF  INCREMENT.  TERMED  THE 
C=tc=ic*  MECHANICAL  STRESS  AT  THE  END  OF  THE  TIME  INCREMENT, 

C***  BM2STS • 

C***  X9,X10, XI 1 -COMPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

C***  STEP  #21A:  COMPUTE  STRESS  INCREMENT. 

C***  STEP  #22:  REFINE  THE  PLASTIC  STRAIN  INCREMENT. 

C***  STEP  #24:  REFINE  THE  CUMULATIVE  PLASTIC  STRAIN  INCREMENT. 

C=t=*=t.  STEP  #24A:  COMPUTE  REFINED  PLASTIC  STRAIN  VALUE  AT  THE  END  OF  THE 
C*=t==tc  INCREMENT. 

C***  STEP  #24B:  COMPUTE  REFINED  DRAG  STRESS. 

C 

DG=DG-F1DG/DRF1DG 

X2=EXP(-1.0D0*DG) 

E2STS=X6+X3*( 1 . 0D0-X2)/DG+X2*Z2 

ELSE 

E2STS=X3+E1STS 

ENDIF 

DESTS=E2STS-E1STS 
DQ=Z4/BK2*  ( DCSTN/DT  )  *:*=YN1 
X9=EXP(-1.0D0:t<DQ) 

X10=Z5-DESTS 

X11=Z6=kX9 

IF(DQ.NE.0.0D0)THEN 

BM2STS=E2STS+X1 1+XlO* ( 1 . 0D0-X9 ) /DQ 
DMSTS=BM2STS-BM1STS 
DPSTN=DTSTN- DMSTS/E 
DCSTN=ABS(DPSTN) 

C2STN=DCSTN+C1STN 

BK2= AK 1 +YK2*EXP ( Y7 * C2STN ) 

C 

C***  STEP  #25:  COMPUTE  THE  FUNCTION  OF  DELTA  Q  TO  ITERATE  TO  DETERMINE 
C***  ITS  ZERO  SO  AS  TO  REFINE  DELTA  Q  IN  THE  PROCESS. 

C*=t==t<  X12,X13-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 
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C 

X12=DCSTN/DT 

X13=X12**YN2 

F2Dq=DQ-Z4/BK2*X12*X13 

C 

C***  STEP  #26.  COMPUTE  THE  DERIVATIVE  OF  THE  PROCEEDING  FUNCTION. 

C 

IF(DPSTN.GE.O.O)THEN 

DRF2Dq=1.0DO+X13*Z7/BK2=t<(X10>ic((DQ+1.0DO)*X9-1.0DO)/DQ/ 

$  Dq-Xll) 

■  ELSE 

DRF2Dq=l . 0D0+X13*Z7/BK2*(X1 1+X10/Dq*( 1 . ODO- ( 1 . ODO+Dq ) * 
$  X9)/Dq) 

ENDIF 


C 

C***  STEP 
C***  STEP 
C*** 

C*** 

C*** 

C**=t=  STEP 
C***  STEP 
C***  STEP 
C***  STEP 
C=t‘=*‘* 

C*** 

c 


#27:  REFINE  DELTA  q  WITH  A  SINGLE  NEWTON  ITERATION. 

#28:  REFINE  THE  FUTURE  STRESS  AT  THE  END  OF  THE  INCREMENT  BY 
DIRECT  SUBSTITUTION  ITERATION,  SUBSTITUTING  REFINED 
DELTA  q. 

X9-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

#28A:  COMPUTE  STRESS  INCREMENT. 

#29:  REFINE  THE  PLASTIC  STRAIN  INCREMENT. 

#30:  REFINE  THE  CUMULATIVE  PLASTIC  STRAIN  INCREMENT. 

#30A:  COMPUTE  THE  PLASTIC  STRAIN  AT  THE  END  OF  THE  INCREMENT. 
COPY  OF  STEP  #12  PLACED  HERE  FOR  COMPUTATIONAL 
EFFICIENCY. 

Dq=Dq-F2Dq/DRF2Dq 
X9=EXP(-1. ODO+Dq) 

BM2STS=E2STS+X10/Dq*(1.0D0-X9)+Z6*X9 
DMSTS=BM2STS-BM1STS 
DPSTN=DTSTN- DMSTS/E 
DCSTN=ABS(DPSTN) 

P2STN=P1STN+DPSTN 


ELSE 

DMSTS=Z5 

DPSTN=O.ODO 

DCSTN=O.ODO 

P2STN=P1STN 

BM2STS=BM1STS+DMSTS 


ENDIF 

C 

C=t<*=ic  CONVERGENCE  CHECKS: 

C 

C***  1:  FORCE  A  MINIMUM  NUMBER  OF  ITERATIONS 


C 

IF(M.LT.MINIT)  GOTO  8 
C 

C***  2:  CHECK  FOR  EXCEEDING  ALLOWED  MAXIMUM  NUMBER  OF  ITERATIONS  AND 
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C***  2A:  FLAG  NONCONVERGENCE  OF  A  MOSTLY  ELASTIC  STRAIN  INCREMENT 

C*=f=K  2B:  OR  FLAG  MOSTLY  A  PLASTIC  INCREMENT  WITH  NONCONVERGENCE 

C 

IF(M.GE.MAXIT)THEN 

I F( DCSTN . LT . ELSCON ) THEN 
IERR=1+IERR 
GOTO  7000 

ELSE 

IERR=2+IERR 
GOTO  7000 

ENDIF 

ENDIF 

C 

C***  3:  CHECK  CONVERGENCE  OF  THE  MECHANICAL  STRESS. 

C 

IF(BM2STS.EQ.0.0D0) THEN 

IF(ABS(OLDDMS-DMSTS).GT.CONERR)THEN 
IERR=30 
GOTO  8 

ENDIF 

ELSE 

IF(ABS((0LDDMS-DMSTS)/BM2STS).GT.C0NERR)THEN 
IERR=30 
GOTO  8 

ENDIF 

ENDIF 

C 

C**=t=  4:  CHECK  CONVERGENCE  OF  CUMULATIVE  PLASTIC  STRAIN  INCREMENT  AND 

C**=f  THEREFORE  ALSO  THE  PLASTIC  STRAIN  INCREMENT.  THIS  CHECK  IS 
C***  SKIPPED  IF  THE  PLASTIC  INCREMENT  MAGNITUDE  IS  BELOV  A 
C***  PERCENTAGE  OF  THE  MAGNITUDE  OF  THE  TOTAL  STRAIN  INCREMENT. 

C 

I F ( DCSTN . GE . DCCON ) THEN 

I F ( P2STN . EQ . 0 . ODO ) THEN 

IF(ABS(OLDDC-DCSTN) .GT.CONERR)  THEN 
IERR=40 
GOTO  8 

ENDIF 

ELSE 

IF( ABS( ( OLDDC-DCSTN) /P2STN) . GT . CONERR)THEN 
IERR=40 
GOTO  8 

ENDIF 

ENDIF 

ENDIF 

C 

C***  5:  CHECK  CONVERGENCE  OF  THE  EQUILIBRIUM  STRESS.  DONE  ONLY  WHEN  THE 

C***  MAGNITUDE  OF  THE  EQUILIBRIUM  STRESS  EXCEEDS  A  PERCENTAGE  OF  THE 

C***  MAGNITUDE  OF  THE  MECHANICAL  STRESS. 
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C 

IF(  ABS  ( BESTS )  .  GE .  ABS ( DMSTS  )  :^C0NERR)THEN 
I F ( E2STS . EQ . 0 . ODO ) THEN 

IF( ABS ( OLDDE-DESTS ) . GT . CONERR)TeEN 
IERR=50 
GOTO  8 

ENDIF 

ELSE 

IF(ABS((0LDDE-DESTS)/E2STS).GT.C0NERR)THEN 
IERR=50 
GOTO  8 

ENDIF 

ENDIF 

ENDIF 

C 

C***  CONVERGENCE  SATISFIED 
C 

IERR=0 

C 

C***  STEP  #35:  ITERATION  COMPLETE  UPDATE  STATE  VARIABLES  AND  PRINT  OUT 
C***  RESULTS. 

C 

7000  C2STN=C1STN+DCSTN 
T2STN=T1STN+DTSTN 
T2=DT+T1 

***  STEP  #36.  GO  TO  THE  NEXT  TIME  INCREMENT. 

RETURN 

END 

C===================================================================== 

SUBROUTINE  STRESS( IHISIN , NUMFIL , NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*(*)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /STPCON/IALTER, IPADl , PAD2 , PAD3 , PAD4 
IF(IALTER.LE.2)THEN 

CALL  STSNUM(IHISIN,NUMFIL(1), NAMGPH) 

ELSE 

CALL  STSLEN( IHISIN , NUMFIL ( 1 ) , NAMGPH) 

ENDIF 

RETURN 

END 

C===================================================================== 

SUBROUTINE  STSNUM( IHISIN , NUMFIL , NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*(*)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /WALCON/EOSTS , P2 , P3 , P4 , P5 , P6 , E , P8 , P9 , PIO , YMl , P12 , YNl , P14 
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COMMON  /GE0/AP2 , AP4 , RATELD , APS , lAPl , lUNITS , IAP6 , IAP7 
COMMON  /STPCON/IBPl ,NUMINC,BP3,STSINC,BP5 
COMMON  /DTCONS /Z1 , Z3 , Z4 , CP4 , Z7 , AN6 , Z8 
COMMON  /CONVER/IDPl ,MAXIT,C0NERR,ELSC0N,DP5,DMC0N 
C  FOLLOWING  IS  FOR  STRESS  CONTROL 
C  TIME,  T=0  INITIALIZATION 
MAVG=0 

REVIND(IHISIN) 

T2=0.0D0 

BM2STS=0.0D0 

T2STN=0.0D0 

P2STN=0.0D0 

C2STN=0.0D0 

E2STS=E0STS 

STSBGN=O.ODO 

IERR=0 

M=0 

1=0 

IF(IUNITS.EQ.1)THEN 

VRITE( NUMFIL ( 1 ) , 1000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE.’  ’)THEN 

VRITE( NUMFI L ( 2 ) , 2000 ) T2 , T2STN , BM2STS 

ENDIF 

ELSE 

WRITE ( NUMFIL ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

WRITE ( NUMFI L ( 2 ), 4000 )T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

10  READ(IHISIN,*,END=40)STSEND 
MIN=MAXIT 
MAX=0 

STSRNG=STSEND-STSBGN 

C 

C**+  CHECK  FOR  STSRNG=0.  IF  TRUE,  READ  ANOTHER  REVERSAL. 

C 

IF(STSRNG.EQ.O.ODO)  GOTO  10 
NUMSTP=NUMINC 
STSSTP=STSRNG /DBLE ( NUMSTP ) 

I F ( ABS ( STSSTP ) . LT . STSINC ) THEN 

NUMSTP= INT ( ABS ( STSRNG /STS INC ) ) + 1 
STSSTP=STSRNG/DBLE(NUMSTP) 

ENDIF 

DMSTS=STSSTP 
DMCON=CONERR* ABS ( DMSTS ) 

DT=ABS ( STSSTP ) /RATELD 
ELSCON=ABS ( DMSTS ) /E 
Z1=AN6*DT 
Z3=Z1:*<YM1 
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Z4=E*DT 

Z7=DT*YN1 

Z8=DMSTS/E 

IF(DMSTS.GE.0.0)THEN 

DTSTN=0.001 

ELSE 

DTSTN=-0.001 

ENDIF 

DO  20,  II=1,NUMSTP 
DPSTN=DTSTN 
DCSTN=ABS(DPSTN) 

DESTS=DMSTS 

BM1STS=BM2STS 

P1STN=P2STN 

C1STN=C2STN 

E1STS=E2STS 

T1STN=T2STN 

T1=T2 

CALL  STSCON( BMISTS , PISTN , CISTN , EISTS , TISTN , T1 ,  DT ,  DTSTN , 
$  DMSTS ,  DPSTN ,  DCSTN ,  BESTS ,  BM2STS ,  P2STN ,  C2STN , 

$  E2STS,T2STN,T2,IERR,M) 

MAVG=MAVG+M 
IF(M.GT.MAX)MAX=M 
IF(M.LT.MIN)MIN=M 
IF(NAMGPH.NE. ’  ’ )THEN 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMF I L ( 2 ) , 2000 ) T2 , T2STN , BM2STS 

ELSE 

WRITE ( NUMF I L ( 2 ) , 4000 ) T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

IF(IERR.NE.O)GOTO  30 
20  CONTINUE 

30  CONTINUE 

1=1+1 

MAVG=MAVG/NUMSTP 

IF(IUNITS.EQ.1)THEN 

WRITE( NUMFIL ( 1 ) , 1000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 
$  MAX,IERR 

ELSE 

WRITE ( NUMFI L ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 
$  MAX,IERR 

ENDIF 

IF(IERR.NE.O)GOTO  40 
STSBGN=BM2STS 
GOTO  10 
40  CONTINUE 
RETURN 

1000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.3,1X,4(I4,1X),I2) 
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2000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.3) 

3000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.2,1X,4(I4,1X),I2) 

4000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.2) 

END 

SUBROUTINE  STSLEN( IHISIN ,NUMFIL ,NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*(*)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /VALCON/EOSTS  j  P2 , P3 , P4 , P5 , P6 , E , P8 , P9 , PIO ,  YMl , P12 , YNl , P14 
COMMON  /GE0/AP2,AP4,RATELD,AP8,IAP1,IUNITS,IAP6,IAP7 
COMMON  /STPC0N/IBP1,IBP2,BP3,STSINC,BP5 
COMMON  /DTCONS/Zl , Z3 , Z4 , CP4 , Z7 , AN6 , Z8 
COMMON  / CONVER/IDPl , MAXIT , CONERR , ELSCON , DPS , DMCON 
C  FOLLOWING  IS  FOR  STRESS  CONTROL 
C  TIME,  T=0  INITIALIZATION 
MAVG=0 

REWIND (IHISIN) 

T2=0.0D0 
BM2STS=0.0D0 
T2STN=0.0D0 
P2STN=0.0D0 
C2STN=0.0D0 
E2STS=E0STS 
STSBGN=0 . ODO 
IERR=0 
M=0 
1=0 

IF( lUNITS . EQ . 1 )THEN 

WRITE ( NUMFIL ( 1 ) , 1 000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’)THEN 

WRITE ( NUMFIL ( 2 ) , 2000 ) T2 , T2STN , BM2STS 

ENDIF 

ELSE 

WRITE (NUMFIL( 1 ) , 3000)1 , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

WRITE ( NUMFIL ( 2 ) , 4000 ) T2 , T2STN , BM2STS 

ENDIF 

ENDIF 

10  READ( IHISIN, *,END=40)STSEND 
MIN=MAXIT 
MAX=0 

STSRNG=STSEND-STSBGN 

C 

C***  CHECK  FOR  STSRNG=0.  IF  TRUE,  READ  ANOTHER  REVERSAL. 

C 

IF(STSRNG.EQ.O,ODO)  GOTO  10 
NUMSTP=INT ( ABS ( STSRNG /STSINC) ) +1 
STSSTP=STSRNG/DBLE ( NUMSTP ) 
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DMSTS=STSSTP 
DMC0N=C0NERR* ABS ( DMSTS ) 

DT= ABS ( STSSTP ) /RATELD 
ELSCON=ABS( DMSTS )/E 
Zl=AN6=t=DT 
Z3=Z1*YM1 
Z4=E=t=DT 
Z7=DT:tcYNl 
Z8=DMSTS/E 
IF(DMSTS.GE.O)THEN 
DTSTN=0.001 

ELSE 

DTSTN= -0.001 

ENDIF 

DO  20,  II=1,NUMSTP 
DESTS=DMSTS 
DPSTN=DTSTN 
DCSTN=ABS(DPSTN) 

BM1STS=BM2STS 

P1STN=P2STN 

C1STN=C2STN 

E1STS=E2STS 

T1STN=T2STN 

T1=T2 

CALL  STSCON( BMISTS , PlSTN , CISTN , ElSTS , TISTN , T1 , DT , DTSTN , 
$  DMSTS , DPSTN , DCSTN , DESTS , BM2STS , P2STN , C2STN , 

$  E2STS,T2STN,T2,IERR,M) 

MAVG=MAVG+M 
IF(M.GT.MAX)  MAX=M 
IF(M.LT.MIN)  MIN=M 
IF(NAMGPH.NE. ’  ’ )THEN 

IF(IUNITS.Eq.l)THEN 

WRITE ( NUMFI L ( 2 ) , 2000 )T2 , T2STN , BM2STS 

ELSE 

WRITE ( NUMFI L ( 2 ) , 4000 )T2 , T2STN , BM2STS 
ENDIF 

ENDIF 

IF(IERR.NE.O)GOTO  30 
20  CONTINUE 

30  CONTINUE 

1=1+1 

MAVG=MAVG/NUMSTP 

IF(IUNITS.EQ.1)THEN 

WRITE( NUMFI L ( 1 ) , 1000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 
$  MAX,IERR 

ELSE 

WRITE( NUMFI L ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 
$  MAX,IERR 

ENDIF 
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IF(IERR.NE.O)GOTO  40 
STSBGN=BM2STS 
GOTO  10 
40  CONTINUE 
RETURN 

1000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.3,1X,4(I4,1X),I2) 

2000  FORMAT(  IX ,  D20 . 13 ,  IX ,  FIO .  7 ,  IX ,  F8 . 3 ) 

3000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.2,1X,4(I4,1X),I2) 

4000  FORMAT(1X,D20.13,1X,F10.7,1X,F8.2) 

END 

0======================================================================= 

SUBROUTINE  STSC0N(BM1STS,P1STN,C1STN,E1STS,T1STN,T1 ,DT,DTSTN, 
SDMSTS , DPSTN , DCSTN , BESTS , BM2STS , P2STN , C2STN , 

$E2STS , T2STN , T2 , lERR , M ) 

C  FOLLOWING  INPUT  ONLY  TO  SUBROUTINE 
C  FORTRAN  CONSTANTS:  MINIT,MAXIT,CONERR 

C  WALKER  CONSTANTS:  E0STS,AN,AM,AN1,AN2,AN3,AN4,AN5,AN6,AN7,AK1, 

C  AK2,E 

C  VARIABLES:  BM1STS,P1STN,C1STN,E1STS,DT,DTSTN 
C  FOLLOWING  INPUT  TO  AND  OUTPUT  FROM  SUBROUTINE 
C  VARIABLES;  DPSTN 

C  FOLLOWING  OUTPUT  ONLY  FROM  SUBROUTINE 
C  VARIABLES:  BM2STS , P2STN , C2STN , E2STS 

C  >|c  *  ^  *  IK  ^4:  >|c  *  4:  3):  3^  %  4:  *  *  Mi  *  *  *  *  4:  *  *  *  :*:  ^  *  sk  :tc  *  ^  IK  *  ^  ^  :)<  ^  *  *  *  it:  Ik  *  >)l  *  * 

IMPLICIT  DOUBLE  PRECISI0N(A-H,0-Z) 

COMMON  /CONVER/MINIT , MAXIT , CONERR, ELSCON , DCCON , DMCON 
COMMON  /WALCON/EOSTS , ANl , AN2 , AN3 , AN4 , AKl , E , Y5 , Y7 , YK2 , YM 1 , YM2 , 

$  YN1,YN2 

COMMON  /DTC0NS/Z1,Z3,Z4,Z5,Z7,AN6,Z8 
C 

Cmikik  CHECK  FOR  DT=0.0  WHICH  WOULD  RESULT  IN  DIVISION  BY  ZERO 
C 

IF(DT.EQ.O.ODO)THEN 

WRITE (ik, Ml) ’0  ERROR  DT=0’ 

WRITE(=k,=k)’  SUBROUTINE  STSCON:  CHECK  DT  CALCULATION  IN’ 

WRITE ( Ik,*)’  CALLING  PROGRAM’ 

IERR=70 

RETURN 

ENDIF 

Z2=ElSTS-(E0STS+ANlikPlSTN) 

Z6=BM1STS-E1STS 

C2STN=DCSTN+C1STN 

E2STS=DESTS+E1STS 

P2STN=DPSTN+P1STN 

BM2STS=DMSTS+BM1STS 

M=0 

10  M=M+1 
C 
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c 


CHECK  FOR  EXCEEDING  ALLOWED  MAXIMUM  NUMBER  OF  ITERATIONS  AND 
A:  FLAG  NONCONVERGENCE  OF  A  MOSTLY  ELASTIC  STRAIN  INCREMENT 
B:  OR  FLAG  MOSTLY  A  PLASTIC  INCREMENT  WITH  NONCONVERGENCE 

IF(M.GT.MAXIT)THEN 

M=M-1 

IF(DCSTN . LT . ELSCON)THEN 
IERR=1+IERR 
GOTO  7000 

ELSE 

IERR=2+IERR 
GOTO  7000 

ENDIF 

ENDIF 

OLDDE=DESTS 

OLDDC=DCSTN 

OLDDT=DTSTN 

XI = ( AN3+AN4*EXP ( Y5*C2STN ) ) *DCSTN 

DG=X1+Z1*ABS(E2STS)**YM1 

IF(DG.NE.O.ODO)THEN 

X2=EXP(-1.0D0=fDG) 

X3=AN2*DPSTN 

X4=X3*(1.0D0-X2)/DG 

X5=Z2*X2 

X6=E0STS+AN1*P2STN 

E2STS=X6+X4+X5 

X7=ABS(E2STS) 

X8=X7**YM2 
F1DG=X1+Z1*X8*X7-DG 
IF ( E2STS . GE . 0 . ODO ) THEN 

DFl DDG=Z3^X8* ( ( X3*X2-X4 ) /DG -X5) - 1 . ODO 

ELSE 

DFlDDG=Z3=t<X8*  (  (  X4-X3*X2  )  /DG+X5  )  - 1 .  ODO 

ENDIF 

DG=DG-F1DG/DF1DDG 

X2=EXP(-1.0D0*DG) 

E2STS=X6+X3=*=  ( 1 . 0D0-X2  )  /DG+Z2+X2 
DESTS=E2STS-E1STS 

ELSE 

X3=AN2*DPSTN 

E2STS=X3+E1STS 

DESTS=X3 

ENDIF 

BK2= AK 1 +YK2*EXP ( Y7 *C2STN ) 

Dq=Z4/BK2:*=(DCSTN/DT)**YNl 

IF(DQ.NE.O.ODO)THEN 

X9=EXP(-1.0D0*DQ) 

X11=Z6*X9 

X16=(1.0D0-X9)/DQ 
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X17=BM2STS-E2STS 

DTSTN=((X17-X11)/X16+DESTS)/E 

DPSTN=DTSTN-Z8 

DCSTN=ABS(DPSTN) 

C2STN=DCSTN+C1STN 

BK2=AK1+YK2*EXP(Y7*C2STN) 

X12=DCSTN/DT 
X13=X12**YN2 
F2DQ=DQ-Z4/BK2*X13*X12 
IF(DCSTN.GE.O.ODO) THEN 

DF2DDQ=1.0D0-Z7/BK2=t<X13*((E=t=DTSTN-DESTS)/DQ*(X16-X9)  + 
$  Xll) 

ELSE 

DF2DDq=1.0D0+Z7/BK2*X13*((E*DTSTN-DESTS)/DQ*(X16-X9)+ 
$  Xll) 

ENDIF 

DQ=DQ-F2DQ/DF2DDQ 

X9=EXP(-1.0D0t<DQ) 

DTSTN=(DQ/(1.0D0-X9)=t<(X17-Z6*X9)+DESTS)/E 

DPSTN=DTSTN-Z8 

DCSTN=ABS(DPSTN) 

C2STN=DCSTN+C1STN 

P2STN=DPSTN+P1STN 

ELSE 

DTSTN=Z8 

DPSTN=0.0D0 

DCSTN=0.0D0 

C2STN=C1STN 

P2STN=P1STN 

ENDIF 

T2STN=T1STN+DTSTN 

C 

CONVERGENCE  CHECKS: 

C 

C***  1:  FORCE  A  MINIMUM  NUMBER  OF  ITERATIONS 

C 

IF(M.LT.MINIT)  GOTO  10 
C 

C***  6:  CHECK  CONVERGENCE  OF  THE  TOTAL  STRAIN. 

C 

I F ( T2STN . EQ . 0 . ODO ) THEN 

IF(ABS(OLDDT-DTSTN).GT.CONERR)THEN 
IERR=60 
GOTO  10 

ENDIF 

ELSE 

I F ( ABS ( ( 0 LDDT - DTSTN ) /T2STN ) . GT . CONERR ) THEN 
IERR=:60 
GOTO  10 
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ENDIF 

ENDIF 

C 

C***  4;  CHECK  CONVERGENCE  OF  CUMULATIVE  PLASTIC  STRAIN  INCREMENT  AND 

C***  THEREFORE  ALSO  THE  PLASTIC  STRAIN  INCREMENT.  THIS  CHECK  IS 
C***  SKIPPED  IF  THE  PLASTIC  INCREMENT  MAGNITUDE  IS  BELOW  A 
C***  PERCENTAGE  OF  THE  MAGNITUDE  OF  THE  TOTAL  STRAIN  INCREMENT. 

C 

IF(DCSTN . GE . ABS(DTSTN)*CONERR)THEN 
IF( P2STN . EQ . 0 . ODO)THEN 

IF(ABS(OLDDC-DCSTN).GT.CONERR)  THEN 
IERR=40 
GOTO  10 

ENDIF 

ELSE 

IF( ABS( (0LDDC-DCSTN)/P2STN) . GT . CONERR)THEN 
IERR=40 
GOTO  10 

ENDIF 

ENDIF 

ENDIF 

C 

C***  5:  CHECK  CONVERGENCE  OF  THE  EQUILIBRIUM  STRESS.  DONE  ONLY  WHEN  THE 

C***  MAGNITUDE  OF  THE  EQUILIBRIUM  STRESS  EXCEEDS  A  PERCENTAGE  OF  THE 

C**=tc  MAGNITUDE  OF  THE  MECHANICAL  STRESS. 

C 

IF(ABS(DESTS) .GE.DMCON)THEN 
IF(E2STS . EQ . 0 . ODO)THEN 

IF(ABS(OLDDE-DESTS).GT.CONERR)THEN 
IERR=50 
GOTO  10 

ENDIF 

ELSE 

IF( ABS( (OLDDE-DESTS) /E2STS) . GT.CONERR)THEN 
IERR=50 
GOTO  10 

ENDIF 

ENDIF 

ENDIF 

C 

C***  CONVERGENCE  SATISFIED 
C 

IERR=0 

C 

C***  STEP  #35:  ITERATION  COMPLETE  UPDATE  STATE  VARIABLES  AND  PRINT  OUT 
RESULTS  . 

c 

C>t=**  STEP  #36.  GO  TO  THE  NEXT  TIME  INCREMENT. 

C 
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7000  T2=T1+DT 
RETURN 
END 

SUBROUTINE  NEUBER(IHISIN,NUMFIL,NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*(+)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /STPCON/IALTER , IPADl , PAD2 , PAD3 , PAD4 
IF(IALTER.LE.2)THEN 

CALL  NEUNUM(IHISIN,NUMFIL(1), NAMGPH) 

ELSE 

CALL  NEULEN( IHISIN , NUMFIL( 1 ) , NAMGPH) 

ENDIF 

RETURN 

END 

SUBROUTINE  NEUNUM(IHISIN,NUMFIL, NAMGPH) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER=t<(*)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /VALCON/EOSTS , P2 , P3 , P4 , P5 , P6 , E , P8 , P9 , PIO , YMl , P12 , YNl , P14 
COMMON  /GEO/AKT , AP4 , RATELD , APS , I API , lUNITS , I AP6 , I AP7 
COMMON  /STPCON/IBPl , NUMINC , BP3 , BP4 , STSINC 
COMMON  /DTCONS/Zl , Z3 , Z4 , CP4 , Z7 , AN6 , CP7 
COMMON  /CONVER/IDPl , MAXIT , DP3 , DP4 , DP5 , DP6 
C  TIME,  T=0  INITIALIZATION 
MAVG=0 

REWIND( IHISIN) 

T2=0 . ODO 
BM2STS=O.ODO 
T2STN=0.0D0 
P2STN=0.0D0 
C2STN=0.0D0 
E2STS=E0STS 
DESTS=0.0D0 
SBGN=0.0D0 
IERR=0 
M=0 
1=0 

SSTPP=O.ODO 

DTSTNP=O.ODO 

DMSTSP=O.ODO 

STNBGN=O.ODO 

STSBGN=O.ODO 

IF(IUNITS.EQ.1)THEN 

VRITE( NUMFIL ( 1 ) , 1000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. »  » )THEN 

WRITE ( NUMFIL ( 2 ) , 2000 ) T2 , T2STN , BM2STS , SSTPP+SBGN 
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ENDIF 

ELSE 

WRITE ( NXMFIL ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , M , lERR 
IFfNAMGPH.NE. ’  ’ )THEN 

VRITE(NUMFIL(2) , 4000)T2 ,T2STN , BM2STS ,SSTPP+SBGN 

ENDIF 

ENDIF 

10  READ(IHISIN,*,END=40)SEND 
MIN=MAXIT 
MAX=0 

SRNG=SEND-SBGN 

C 

C***  CHECK  FOR  SRNG=0.  IF  TRUE,  READ  ANOTHER  REVERSAL. 

C 

IF(SRNG.EQ.O.ODO)  GOTO  10 
NUMSTP=NUMINC 
SSTP=SRNG /DBLE ( NUMSTP ) 

IF(ABS(SSTP) .LT.STSINC/AKT)THEN 

NUMSTP=I NT ( ABS ( SRNG/ ( STSINC/ AKT ) ) ) + 1 
SSTPrSRNG /DBLE (NUMSTP) 

ENDIF 

IF(SRNG.LT.O.ODO) THEN 
ISGNTC=-1 

ELSE 

ISGNTC=1 

ENDIF 

DT=ABS(SSTP/RATELD) 

Z1=AN6*DT 

Z3=Z1*YM1 

Z4=E*DT 

Z7=DT*YN1 

DSSDSN= ( AKT* ( SSTPP+SSTP ) ) *  *2/E 
DTSTN=AKT*SSTP/E 
DO  20,  I 1=1, NUMSTP 
DMSTS=O.ODO 
DESTS=E*DTSTN 
BM1STS=BM2STS 
P1STN=P2STN 
C1STN=C2STN 
E1STS=E2STS 
T1STN=T2STN 
T1=T2 

CALL  NEUSTN(ISGNTC,DSSDSN,BM1STS,P1STN,C1STN,E1STS, ' 

$  T1 STN , T1 , DT , DTSTNP , DMSTSP , DTSTN , DMSTS , DESTS , 

$  BM2STS , P2STN , C2STN , E2STS , T2STN , T2 , lERR ,  M  ) 

MAVG=MAVG+M 
IF(M.GT.MAX)  MAX=M 
IF(M.LT.MIN)  MIN=M 
SSTPP=SSTPP+SSTP 
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IF(NAMGPH.NE.’  ’ )THEN 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMF I L ( 2 ) , 2000 ) T2 , T2STN , BM2STS , SSTPP+SBGN 

ELSE 

WRITE(NUMFIL(2) ,4000)12 ,T2STN , BM2STS , SSTPP+SBGN 
ENDIF 

ENDIF 

IF(IERR.NE.O)GOTO  30 

DSSDSN=  (  AKTt.  (  SSTPP+SSTP  )  )  ♦=*.2/E 

DTSTNP=T2STN-STNBGN 

DMSTSP=BM2STS-STSBGN 
20  CONTINUE 

30  CONTINUE 

1=1+1 

MAVG=MAVG/NUMSTP 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMFIL ( 1 ) , 1000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 

$  MAX,IERR 

ELSE 

WRITE( NUMFIL ( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 

$  MAXjIERR 

ENDIF 

IF(IERR.NE.O)GOTO  40 
STNBGN=T2STN 
STSBGN=BM2STS 
SBGN=SSTPP+SBGN 
SSTPP=O.ODO 
DTSTNP=O.ODO 
DMSTSP=O.ODO 
GOTO  10 
40  CONTINUE 
RETURN 

1000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.3,1X,4(I4,1X),I2) 

2000  F0RMAT(1X,D20.13,1X,F10.7,2(1X,F8.3)) 

3000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.2,1X,4(I4,1X),I2) 

4000  FORMAT(1X,D20.13,1X,F10.7,2(1X,F8.2)) 

END 

C======================================================================= 

SUBROUTINE  NEULEN ( IHISIN , NUMFIL , NAMGPH ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*(*)  NAMGPH 
DIMENSION  NUMFIL(2) 

COMMON  /WALCON/EOSTS , P2 , P3 , P4 , P5 , P6 , E , P8 , P9 , PIO , YMl , P12 , YNl , Pl4 
COMMON  /GEO /AKT , AP4 , RATELD , APS , lAPl , lUNITS , IAP6 , I AP7 
COMMON  /STPCON/IBPl , IBP2 , BP3 , BP4 , STSINC 
COMMON  /DTC0NS/Z1,Z3,Z4,CP4,Z7,AN6,CP7 
COMMON  /CONVER/IDPl , MAXIT , DP3 , DP4 , DP5 , DP6 
C  TIME,  T=0  INITIALIZATION 
MAVG=0 
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REVIND(IHISIN) 

T2=0.0D0 

BM2STS=0.0D0 

T2STN=0.0D0 

P2STN=0.0D0 

C2STN=0.0D0 

E2STS=E0STS 

SBGN=0.0D0 

DESTS=0.0D0 

IERR=0 

M=0 

1=0 

SSTPP=0.0D0 

DTSTNP=0.0D0 

DMSTSP=0.0D0 

STNBGN=0.0D0 

STSBGN=0.0D0 

IF(IUNITS.Eq.l)THEN 

WRITE(NUMFIL( 1 ) , 1000)1 ,T2 ,T2STN , BM2STS ,M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

VRITE( NUMFI L ( 2 ) , 2000 ) T2 , T2STN , BM2STS , SSTPP+SBGN 
ENDIF 

ELSE 

VRITE( NUMFIL( 1 ) , 3000 ) I , T2 , T2STN , BM2STS , M , lERR 
IF(NAMGPH.NE. ’  ’ )THEN 

WRITE ( NUMF I L ( 2 ) , 4000 ) T2 , T2STN , BM2STS , SSTPP+SBGN 
ENDIF 

ENDIF 

10  READ(IHISIN,+,END=40)SEND 
MIN=MAXIT 
MAX=0 

SRNG=SEND-SBGN 

C 

CHECK  FOR  SRNG=0.  IF  TRUE,  READ  ANOTHER  REVERSAL. 

C 

IF(SRNG.EQ.O.ODO)  GOTO  10 
NUMSTP=INT(ABS(SRNG/(STSINC/AKT) ) )+l 
SSTP=SRNG /DBLE ( NUMSTP ) 

I F ( SRNG . LT . 0 . 0 DO ) THEN 
ISGNTC=-1 

ELSE 

ISGNTC=1 

ENDIF 

DT=ABS(SSTP/RATELD) 

Z1=AN6*DT 

Z3=Z1*YM1 

Z4=E+DT 

Z7=DT*YN1 

DSSDSN= ( AKT+ ( SSTPP+SSTP ) ) + ♦2/E 
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DTSTN=AKTx.SSTP/E 
DO  20,  II=1,NUMSTP 
DESTS=E»kDTSTN 
DMSTS=0.0D0 
BM1STS=BM2STS 
P1STN=P2STN 
C1STN=C2STN 
E1STS=E2STS 
T1STN=T2STN 
T1=T2 

CALL  NEUSTN( ISGNTC , DSSDSN , BMISTS , PISTN , CISTN , EISTS , 

$  TISTN ,  T1 ,  DT ,  DTSTNP ,  DMSTSP ,  DTSTN ,  DMSTS ,  BESTS , 

$  BM2STS , P2STN , C2STN , E2STS , T2STN , T2 , lERR ,  M  ) 

MAVG=MAVG+M 
IF(M.GT.MAX)  MAX=M 
IF(M.LT.MIN)  MIN=M 
SSTPP=SSTPP+SSTP 
IF(NAMGPH.NE. ’  ’ )THEN 

IF(IUNITS.Eq.l)THEN 

WRITE ( NUMF I L ( 2 ) , 2000 ) T2 , T2STN , BM2STS , SSTPP+SBGN 

ELSE 

WRITE ( NUMF I L ( 2 ) , 4000 )T2 , T2STN , BM2STS , SSTPP+SBGN 
ENDIF 

ENDIF 

IF(IERR.NE.O)GOTO  30 
DSSDSNr ( AKT* ( SSTPP+SSTP ) ) **2/E 
DTSTNP=T2STN-STNBGN 
DMSTSP=BM2STS-STSBGN 
20  CONTINUE 

30  CONTINUE 

1=1+1 

MAVG=MAVG/NUMSTP 

IF(IUNITS.EQ.1)THEN 

WRITE ( NUMFIL (1), 1000)1, T2, T2STN , BM2STS , NUMSTP , MIN , MAVG , 

$  MAXjIERR 

ELSE 

WRITE( NUMFIL ( 1 ) , 3000 ) I ,T2 , T2STN , BM2STS , NUMSTP , MIN , MAVG , 

$  MAX,IERR 

ENDIF 

IF(IERR.NE.O)GOTO  40 
STNBGN=T2STN 
STSBGN=BM2STS 
SBGN=SSTPP+SBGN 
SSTPP=O.ODO 
DTSTNP=O.ODO 
DMSTSP=O.ODO 
GOTO  10 
40  CONTINUE 
RETURN 
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1000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.3,1X,4(I4,1X),I2) 

2000  FORMAT(1X,D20.13,1X,F10.7,2(1X,F8.3)) 

3000  FORMAT(1X,I10,1X,D20.13,1X,F10.7,1X,F8.2,1X,4(I4,1X),I2) 

4000  FORMAT(1X,D20.13,1X,F10.7,2(1X,F8.2)) 

END 

SUBROUTINE  NEUSTN(ISGNTC,DSSDSN,BM1STS,P1STN,C1STN,E1STS,T1STN,T1 , 
$  DT , DTSTNP , DMSTSP , DTSTN , DMSTS , BESTS , 

$  BM2STS , P2STN , C2STN , E2STS , T2STN , T2 , lERR , M ) 

U  :4e  afc  #  :4c  4c  sfE  34c  :te  4c  ^  ate  :4c  %  :4e  3te  ;4c  afc  ^  lie  ^  %  %  ifc  He  ^  3|c  ate  ife  %  4c  *  >4^  ^  ^  lie  :1c  ^  :4c  :4e  ate  :1c  :4c 

C  FOLLOWING  INPUT  ONLY  TO  SUBROUTINE 
C  FORTRAN  CONSTANTS:  MINIT,MAXIT,CONERR 

C  WALKER  CONSTANTS:  E0STS,AN,AM,AN1,AN2,AN3,AN4,AN5,AN6,AN7,AK1, 

C  AK2,E 

C  VARIABLES:  BM1STS,P1STN,C1STN,E1STS,DT, DTSTN 
C  FOLLOWING  INPUT  TO  AND  OUTPUT  FROM  SUBROUTINE 
C  VARIABLES:  DPSTN 

C  FOLLOWING  OUTPUT  ONLY  FROM  SUBROUTINE 
C  VARIABLES:  BM2STS , P2STN , C2STN , E2STS 

C*********  4e  ♦♦***♦*♦  ***46****  ********  *JK*4c4e3|C5tcsts**5|c***4e******4e*9|e:t:***** 

IMPLICIT  DOUBLE  PRECISION(A-H,0-Z) 

COMMON  /CONVER/MINIT , MAXIT , CONERR , PADl , PAD2 , PADS 

COMMON  /WALCON/EOSTS , ANl , AN2 , AN3 , AN4 , AKl , E , Y5 , Y7 , YK2 , YM 1 , YM2 , 

$  YN1,YN2 

COMMON  /DTCONS/Zl , Z3 , Z4 , PAD4 , Z7 , AN6 , PADS 

4C4C4C  CHECK  FOR  DT=0.0  WHICH  WOULD  RESULT  IN  DIVISION  BY  ZERO 

IF(DT.EQ.O.ODO)THEN 

WRITE (4C, 4c) ’0  ERROR  DT=0’ 

WRITE(4c,4c)’  subroutine  NEUSTN:  CHECK  DT  CALCULATION  IN’ 
WRITE(*,*)’  CALLING  PROGRAM’ 

IERR=70 

RETURN 

ENDIF 

HC4C4C  THE  STEP  NUMBERING  APPROXIMATES  THAT  GIVEN  IN  WALKER’S  PAPER. 

HC4C4C  INITIALIZE  SUBROUTINE: 

C4C4C4:  STEP  #3:  PLASTIC  STRAIN  GUESS  AT  END  OF  INCREMENT. 

C4C4.4C  STEP  #4:  INITIAL  GUESS  FOR  EQUILIBRIUM  STRESS  AT  END  OF  INCREMENT. 
C 

DPSTN=DTSTN-DMSTS/E 
DCSTN=ABS( DPSTN) 

Z2=E1STS- (E0STS+AN1*P1STN) 

Z6=BM1STS-E1STS 

P2STN=P1STN+DPSTN 

E2STS=E1STS+DESTS 

C 
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C***  STEP  #7:  START  OF  INNER  ITERATION  LOOP.  M  ITERATION  LOOP  INDEX. 

INITIALIZE  CONTROL  PARAMETER  FOR  LOOP. 

C 

M=0 

C 

C***  STEP  #8:  START  OF  REPETITIVE  STATEMENTS  OF  LOOP. 

C 

8  M=M+1 
C 

C***  STORE  VALUES  FOR  CONVERGENCE  TEST 
C 

OLDDTS=DTSTN 
OLDDE=DESTS 
OLDDC=DCSTN 
OLDDMS=DMSTS 
C 

C***  STEP 
C*** 

C***  STEP 
C*** 

C***  STEP 

C***  STEP 
C*=t=* 

STEP 

C=t=** 

Cst'St'!*' 

c 

C2STN=C1STN+DCSTN 
BK2=AK 1+YK2*EXP ( Y7  *C2STN ) 

X 1 = ( AN3+AN4*EXP ( Y5*C2STN ) ) *DCSTN 
DG=X1+Z1*ABS(E2STS)**YM1 
X2=EXP(-1.0D0=t«DG) 

X3=AN2*DPSTN 
X5=X2*Z2 

X6=E0STS+AN1:^P2STN 
IF(DG.NE.O.ODO)THEN 

X4=X3=t<(1.0D0-X2)/DG 
E2STS=X6+X5+X4 
X7=ABS(E2STS) 

X8=X7"t<*YM2 
FlDG=Xl+Zl=tcX8=»:X7-DG 
C 

C=K*=K  STEP  #17:  COMPUTE  THE  DERIVATIVE  OF  THE  PROCEEDING  FUNCTION 
C 

I F ( E2STS . GE . 0 . ODD ) THEN 

DRF1DG=Z3*X8*( (X2*X3-X4) /DG-X5)-1 .ODD 

ELSE 

DRFl DG=Z3*X8* ( X5+ ( X4 -X2*X3 ) /DG ) - 1 . ODD 


#9:  COMPUTE  THE  CUMULATIVE  PLASTIC  STRAIN  AT  THE  END  OF  THE 
INCREMENT. 

#10:  CALCULATE  DRAG  STRESS  (ISOTROPIC  HARDENING)  AT  END  OF 
INCREMENT. 

#11:  EVALUATE  THE  GUESS  FOR  DELTA  G.' 

Xl-COMPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

#13:  COMPUTE  EQUILIBRIUM  STRESS  GUESS  AT  END  OF  INCREMENT. 

X2,X3,X4,X5,X6-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 
#16:  COMPUTE  FUNCTION  OF  DELTA  G  TO  ITERATE  FOR  FINDING  ITS 
ZERO  TO  IMPROVE  THE  ESTIMATE  OF  DELTA  G. 

X7,X8-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 
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ENDIF 

C 

C***  STEP  #18;  REFINE  DELTA  G  BY  A  SINGLE  NEWTON  ITERATION. 

C***  STEP  #19:  COMPUTE  REFINED  VALUE  OF  THE  EQUILIBRIUM  STRESS  BY 
C**:,.  DIRECT  SUBSTITUTION  ITERATION,  SUBSTITUTING  REFINED 

DELTA  G . 

C***  X2-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

C*=*=*  STEP  #19A:  COMPUTE  THE  EQUILIBRIUM  STRESS  INCREMENT 

C=tc*>ic  STEP  #20:  COMPUTE  GUESS  FOR  DELTA  Q. 

C***  STEP  #21:  COMPUTE  GUESS  FOR  STRESS  AT  END  OF  INCREMENT.  TERMED  THE 
C***  MECHANICAL  STRESS  AT  THE  END  OF  THE  TIME  INCREMENT, 

BM2STS  . 

c***  X9,X10,X11-COMPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

C*=t=*  STEP  #21A:  COMPUTE  STRESS  INCREMENT. 

C***  STEP  #22;  REFINE  THE  PLASTIC  STRAIN  INCREMENT. 

C***  STEP  #24:  REFINE  THE  CUMULATIVE  PLASTIC  STRAIN  INCREMENT. 

C***  STEP  #24A:  COMPUTE  REFINED  PLASTIC  STRAIN  VALUE  AT  THE  END  OF  THE 

C***  INCREMENT. 

C***  STEP  #24B:  COMPUTE  REFINED  DRAG  STRESS. 

C 

DG=DG-F1DG/DRF1DG 

X2=EXP(-1.0D0*DG) 

E2STS=X6+X3*  ( 1 . 0D0-X2 )  /DG+X2=f  Z2 

ELSE 

E2STS=X3+E1STS 

ENDIF 

DESTS=E2STS-E1STS 

DQ=Z4/BK2*(DCSTN/DT)=tc*YNl 

X9=EXP(-1.0D0*DQ) 

X10=E*DTSTN-DESTS 

X11=Z6*X9 

X14=(1.0D0-X9)/DQ 

IF(DQ.NE.O.ODO)THEN 

BM2STS=E2STS+X1 1 +X1 0*X14 
DMSTS=BM2STS-BM1STS 
IF( ISGNTC . GE . 0 . ODO )THEN 

IF(DMSTS.LT.O.ODO)THEN 

DMSTS=ABS(DMSTS) 

ENDIF 

ELSE 

IF ( DMSTS . GT . 0 . ODO ) THEN 
DMSTS=-DMSTS 

ENDIF 

ENDIF 

DTSTNO=DTSTN 

DTSTN= ( DTSTN+ ( DSSDSN- ( DMSTS+DMSTSP) * ( DTSTN+DTSTNP ) ) / ( E* 

$  ( DTSTN+DTSTNP ) +X14+ ( DMSTS+DMSTSP ) ) ) 

IF( ISGNTC . GE . 0 . ODO ) THEN 

IF ( DTSTN . LT . 0 . ODO )THEN 
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c 

C***  STEP 
C*=t'* 

c 


c 

STEP 

c 


$ 


$ 

c 

C*=t‘=*‘  STEP 
C***  STEP 
C*** 

Ciif** 

c*** 

C***  STEP 
STEP 
C***  STEP 
C*:(t!(c  STEP 

C=*‘=*‘=t‘ 

c 


DTSTN=0 . 5D0>f  ABS  (  DTSTNO  ) 

ENDIF 

ELSE 

I F ( DTSTN . GT . 0 . ODO )THEN 

DTSTN=-0 . 5DO*ABS(DTSTNO) 

ENDIF 

ENDIF 

DPSTN=DTSTN- DMSTS/E 
DCSTN=ABS(DPSTN) 

C2STN=DCSTN+C1STN 

BK2=AK1+YK2*EXP(Y7=kC2STN) 

#25:  COMPUTE  THE  FUNCTION  OF  DELTA  Q  TO  ITERATE  TO  DETERMINE 
ITS  ZERO  SO  AS  TO  REFINE  DELTA  Q  IN  THE  PROCESS. 
X12,X13-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

X12=DCSTN/DT 

X13=X12>tc»YN2 

F2DQ=DQ-Z4/BK2*X12*X13 

#26.  COMPUTE  THE  DERIVATIVE  OF  THE  PROCEEDING  FUNCTION. 
IF(DPSTN.GE.O.O)THEN 

DRF2DQ= 1 . 0D0+X13=t=Z7 /BK2*  (  XIO*  (  (  DQ+1 .  ODO  )  X9- 1 .  ODO  )  /DQ/ 
DQ-Xll) 

ELSE 

DRF2DQ= 1 , 0D0+X13>KZ7/BK2=k  (  XI I+XIO/DQ*  ( 1 .  ODO-  ( 1 .  ODO+DQ  )  ♦ 
X9)/DQ) 

ENDIF 


#27;  REFINE  DELTA  Q  WITH  A  SINGLE  NEWTON  ITERATION. 

#28:  REFINE  THE  FUTURE  STRESS  AT  THE  END  OF  THE  INCREMENT  BY 
DIRECT  SUBSTITUTION  ITERATION,  SUBSTITUTING  REFINED 
DELTA  Q. 

X9-C0MPUTED  FOR  COMPUTATIONAL  EFFICIENCY. 

#28A;  COMPUTE  STRESS  INCREMENT. 

#29:  REFINE  THE  PLASTIC  STRAIN  INCREMENT. 

#30:  REFINE  THE  CUMULATIVE  PLASTIC  STRAIN  INCREMENT. 

#30A:  COMPUTE  THE  PLASTIC  STRAIN  AT  THE  END  OF  THE  INCREMENT. 
COPY  OF  STEP  #12  PLACED  HERE  FOR  COMPUTATIONAL 
EFFICIENCY. 

DQ=DQ-F2DQ/DRF2DQ 

X9=EXP(-1.0D0*DQ) 

X14=(1.0D0-X9)/DQ 
BM2STS=E2STS+X10*X14+Z6=(<X9 
DMSTS=BM2STS - BM ISTS 
IF( ISGNTC . GE . 0 . ODO )THEN 

IF( DMSTS . LT . 0 . ODO)THEN 
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DMSTS=ABS(DHSTS) 

ENDIF 

ELSE 

IF( DMSTS . GT . 0 . ODO )THEN 
DMSTS=-DMSTS 

ENDIF 

ENDIF 

DTSTNO=DTSTN 

DTSTN= ( DTSTN+ ( DSSDSN- ( DMSTS+DMSTSP ) ♦ ( DTSTN+DTSTNP ))/(£♦ 
$  (DTSTN+DTSTNP)*X14+(DMSTS+DMSTSP) ) ) 

IF(ISGNTC.GE.O)THEN 

IF( DTSTN . LT . 0 . ODO )THEN 

DTSTN=0 . 5D0*ABS ( DTSTNO ) 

ENDIF 

ELSE 

IF( DTSTN . GT . 0 . 0D0)THEN 

DTSTN=-0 . 5D0*ABS( DTSTNO ) 

ENDIF 

ENDIF 

DPSTN=DTSTN - DMSTS/E 
DCSTN=ABS(DPSTN) 

P2STN=P1STN+DPSTN 

ELSE 

DMSTS=E*DTSTN 

IF( ISGNTC . GE . 0 . ODO)THEN 

IF ( DMSTS . LT . 0 . ODO)THEN 
DMSTS=ABS( DMSTS) 

ENDIF 

ELSE 

IF(DMSTS . GT . 0 . ODO)THEN 
DMSTS=- DMSTS 

ENDIF 

ENDIF 

DTSTNO=DTSTN 

DTSTN= ( DTSTN+ ( DSSDSN - ( DMSTS+DMSTSP ) * ( DTSTN+DTSTNP ) ) / (  E+ 
$  ( DTSTN+DTSTNP ) + ( DMSTS+DMSTSP ) ) ) 

IF( ISGNTC. GE.O)THEN 

IF( DTSTN . LT . 0 . ODO)THEN 

DTSTN=0 . 5D0+ABS( DTSTNO ) 

ENDIF 

ELSE 

IF( DTSTN . GT . 0 . ODO)THEN 

DTSTN= -0 . 5D0+ABS ( DTSTNO ) 

ENDIF 

ENDIF 

DMSTS=E+DTSTN 

IF( ISGNTC . GE . 0 . 0D0)THEN 

IF( DMSTS . LT . 0 . ODO )THEN 
DMSTS=ABS( DMSTS) 
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ENDIF 

ELSE 

IF( DMSTS . GT . 0 . 0D0)THEN 
DMSTS=-DMSTS 

ENDIF 

ENDIF 

DTSTN0=DTSTN 

DTSTN= (  DTSTN+  (  DSSDSN-  (  DMSTS+DMSTSP)  ♦  (  DTSTN+DTSTNP  )  )  /  (  E>t» 

$  (DTSTN+DTSTNP)+(DMSTS+DMSTSP) ) ) 

IF(ISGNTC.GE.O)THEN 

IF( DTSTN . LT . 0 . 0D0)THEN 

DTSTN=0 . 5D0*ABS ( DTSTNO ) 

ENDIF 

ELSE 

IF( DTSTN . GT . 0 . ODO )THEN 

DTSTN=-0 . 5DO=fABS(DTSTNO  ) 

ENDIF 

ENDIF 

DPSTN=O.ODO 

DCSTN=O.ODO 

P2STN=P1STN 

ENDIF 

BM2STS=BM 1 STS+DMSTS 
T2STN=T1STN+DTSTN 
C 

C**=t=  CONVERGENCE  CHECKS: 

C 

C***  1:  FORCE  A  MINIMUM  NUMBER  OF  ITERATIONS 

C 

IF(M.LT.MINIT)  GOTO  8 
C 

C*:tc=(c  2:  CHECK  FOR  EXCEEDING  ALLOWED  MAXIMUM  NUMBER  OF  ITERATIONS  AND 
C***  2A:  FLAG  NONCONVERGENCE  OF  A  MOSTLY  ELASTIC  STRAIN  INCREMENT 

C*=t==i.  2B:  OR  FLAG  MOSTLY  A  PLASTIC  INCREMENT  WITH  NONCONVERGENCE 

C 

IF(M.GE.MAXIT)THEN 

I F ( DCSTN . LT . ABS ( DMSTS ) /E ) THEN 
IERR=1+IERR 
GOTO  7000 

ELSE 

IERR=2+IERR 
GOTO  7000 

ENDIF 

ENDIF 

C 

C***  3:  CHECK  CONVERGENCE  OF  THE  MECHANICAL  STRESS. 

C 

IF(BM2STS . EQ . 0 . ODO)THEN 

I F ( ABS ( OLDDMS -DMSTS ) . GT . CONERR)THEN 
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IERR=30 
GOTO  8 

ENDIF 

ELSE 

IF(ABS( (0LDDMS-DMSTS)/BM2STS) . GT. CONERR)THEN 
IERR=30 
GOTO  8 

ENDIF 

ENDIF 

6:  CHECK  CONVERGENCE  OF  THE  TOTAL  STRAIN 

I F ( T2STN . EQ . 0 . ODO ) THEN 

IF(ABS(OLDDTS-DTSTN).GT.CONERR)THEN 
IERR=60 
GOTO  8 

ENDIF 

ELSE 

IF( ABS( ( OLDDTS-DTSTN) /T2STN) . GT . CONERR)THEN 
IERR=60 
GOTO  8 

ENDIF 

ENDIF 

4:  CHECK  CONVERGENCE  OF  CUMULATIVE  PLASTIC  STRAIN  INCREMENT  AND 
THEREFORE  ALSO  THE  PLASTIC  STRAIN  INCREMENT.  THIS  CHECK  IS 
SKIPPED  IF  THE  PLASTIC  INCREMENT  MAGNITUDE  IS  BELOW  A 
PERCENTAGE  OF  THE  MAGNITUDE  OF  THE  TOTAL  STRAIN  INCREMENT. 

I F( DCSTN . GE . ABS ( DTSTN ) *CONERR) THEN 
IF(P2STN . EQ . 0 . ODO)THEN 

IF(ABS(OLDDC-DCSTN) .GT.CONERR)  THEN 
IERR=40 
GOTO  8 

ENDIF 

ELSE 

IF(ABS( (OLDDC-DCSTN) /P2STN) . GT.CONERR)THEN 
IERR=40 
GOTO  8 

ENDIF 

ENDIF 

ENDIF 
C 

C***  5;  CHECK  CONVERGENCE  OF  THE  EQUILIBRIUM  STRESS.  DONE  ONLY  WHEN  THE 

C***  MAGNITUDE  OF  THE  EQUILIBRIUM  STRESS  EXCEEDS  A  PERCENTAGE  OF  THE 

C***  MAGNITUDE  OF  THE  MECHANICAL  STRESS. 

C 

I F( ABS ( BESTS ) . GE . ABS ( DMSTS ) ♦CONERR)THEN 
IF(E2STS.EQ.0.0D0)THEN 


C 

c 


c 

c 
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IF(  ABS(  OLDDE-DESTS )  .  GT .  CONERJl)THEN 
IERR=50 
GOTO  8 

ENDIF 

ELSE 

I F( ABS ( ( OLDDE-DESTS ) /E2STS ) . GT . CONERR)THEN 
IERR=50 
GOTO  8 

ENDIF 

ENDIF 

ENDIF 

C 

CONVERGENCE  SATISFIED 
C 

IERR=0 

C 

C***  STEP  #35:  ITERATION  COMPLETE  UPDATE  STATE  VARIABLES  AND  PRINT  OUT 
C***  RESULTS. 

C 

C2STN=C1STN+DCSTN 

C  IF((DMSTSP.EQ.O.ODO).AND.(DTSTNP.EQ.O.ODO))THEN 
IF(ISGNTC.GE.O)THEN 

IF( DTSTN . LT . 0 . ODO)THEN 
DTSTN=ABS(DTSTN) 

GOTO  8 

ENDIF 

ELSE 

IF( DTSTN . GT . 0 . ODO)THEN 
DTSTN=-1.0D0*DTSTN 
GOTO  8 

ENDIF 

ENDIF 

C  ENDIF 

T2=T1+DT 

C 

C***  STEP  #36.  GO  TO  THE  NEXT  TIME  INCREMENT. 

C 

RETURN 

7000  C2STN=C1STN+DCSTN 
T2=T1+DT 
RETURN 
END 

C===================================================================;==: 
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